#Installieren und Laden der benötigten Packages

if (!require("gplots")) {
   install.packages("gplots", dependencies = TRUE)
   library(gplots)
   }
if (!require("RColorBrewer")) {
   install.packages("RColorBrewer", dependencies = TRUE)
   library(RColorBrewer)
   }

#Daten einlesen und Matrix generieren

data <- read.csv("Downloads/distribution.csv")
rnames <- beitraege[,1]
mat_data <- data.matrix(beitraege[,2:ncol(beitraege)])
rownames(mat_data) <- rnames

#Anpassen und Plotten der Heatmap

my_palette <- colorRampPalette(c("green", "yellow", "red"))(n = 299)

col_breaks = c(seq(0,750,length=100),
  seq(750,2000,length=100),
  seq(2000,3000,length=100))

png("Downloads//test.png",
  width = 10*300,
  height = 10*300,
  res = 300,
  pointsize = 9)

heatmap.2(mat_data,
  cellnote = mat_data,
  main = "Correlation",
  notecol="black",
  density.info="none",
  trace="none",
  margins =c(12,9),
  col=my_palette,
  breaks=col_breaks,
  dendrogram="row",
  Colv="NA")

dev.off()