Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #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()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement