View Single Post
Old 03-15-2012, 09:25 AM   #5
Chuckytah
Member
 
Location: Barcelos, Braga, Portugal

Join Date: Mar 2011
Posts: 65
Default

Code:
genes <- read.csv("genes.csv", sep=",")
row.names(genes) <- genes$Descritpion
genes <- genes[,2:4]
genes_matrix <- data.matrix(genes)
genes_heatmap <- heatmap(genes_matrix, Rowv=NA, Colv=NA,col = heat.colors(256), scale="column", margins=c(5,10))

######or#########

library(gplots)
genes_heatmap2 <- heatmap.2(genes_matrix,trace="none",col=greenred(10))

#######or##########

genes_heatmap <- heatmap.2(genes_matrix, col=redgreen(75), scale="row", key=TRUE, symkey=FALSE, density.info="none", trace="none", cexRow=0.5)
Chuckytah is offline   Reply With Quote