R2-21第八期-热图作业

R30-椰z 2017-12-26 19:42:26 阅读: 1016

library(reshape2)

library(plyr)

library(scales)

library(ggplot2)

library(pheatmap)

mydata=read.csv("/Users/liutianzi/Downloads/2.csv",head=T)

mydata1=melt(mydata,id.vars="ID",value.name = "Expression",variable.name="group")

mydata2=ddply(mydata1,"group",transform,Expression=rescale(Expression))

mydata3=matrix(mydata2[,3],nrow=16,ncol=4)

row.names(mydata3)=mydata[,1]

colnames(mydata3)=colnames(mydata)[-1]

pheatmap(mydata3,color = colorRampPalette(c("blue","white","red"))(50),main ="R2-21")

邀请讨论

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整评论

受邀请回答

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整回复

发送回复

赞({{item.count_zan}})

踩({{item.count_cai}})

删除

回复关闭