1 2 3 4 5 6 7 8 9 10 11
| png("/Users/Maryl/Desktop/Enzo.png",800,800)
dataset<-read.csv("/Users/Maryl/Desktop/Enzo.csv", sep=",")
row.names(dataset)<-dataset$Compounds
dataset<-dataset[,2:39]
data_matrix<-data.matrix(dataset)
library(RColorBrewer)
library(gplots)
data_heatmap<-heatmap.2(data_matrix,
Rowv=TRUE, Colv=NULL, distfun=dist, hclustfun = hclust, dendrogram="row", scale="none",
key=TRUE, keysize=1, density.info="none", trace="none", col=rev(brewer.pal(7,"PiYG")), xlab="Parameters", ylab="Compounds", margin=c(23,10), cexRow=0.1, cexCol=1)
graphics.off() |
Partager