setwd("/Users/apple/desktop/R")
data<-read.table("zyfhqg.txt",head=T,row.names=1)
data<-log(data)
par(oma=c(0,0,0,5))
library("gplots")
heatmap.2(as.matrix(data),col=bluered(75),key=TRUE,density.info="none",trace="none",cexRow=0.5,Colv=FALSE,dendrogram="row")
网友评论