第八期作业-011-聚类分析

blanking 2017-10-11 20:53:51 阅读: 902

data<-read.table('/Users/taowang/documents/R/data.csv',header = T,row.names = 1)

heatmap(a,Rowv=NA,

main='microRNA chips',

xlab ='samples',

col=colorRampPalette(c('green','red'))(256) )

程序源自006，经过我一路狂删，现在这个就能画出图了。就是1-12 不是1-12而是X1-X12，不知道有没有很方便的把X去掉的方法

邀请讨论

{{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}})

删除

回复关闭