第八期作业-R-003 热图

dean 2017-10-12 17:34:25 阅读: 948

data<-read.csv('E:/R/学习R/科研狗作业/heat.csv',header = T,row.names = 1)

mode(data)

X<-as.matrix(data)

heatmap(X,

        Rowv=NA,

        main='microRNA Chips',

        sub='sample',

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

)

微信截图_20171012173353.png

 
邀请讨论

附件

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}
{{item.nick_name}} 受邀请回答 {{item.create_time}}
{{item.refer_comment.nick_name}} {{item.refer_comment.create_time}}

附件

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}
切换到完整回复 发送回复
赞({{item.count_zan}}) 踩({{item.count_cai}}) 删除 回复 关闭
R科研作图学习小组(小组)

小组最新话题

科研狗©2015-2024 科研好助手，京ICP备20005780号-1 建议意见

623577364

服务热线

178 0020 3020

微信服务号