第八期作业-R-003 热图

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

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

 
请登录后再评论
| 注册
{{item.nickname}} {{item.create_time}} {{item.floor}}楼
{{item.re_nickname}} 写于 {{item.re_time}}
切换到完整回复
科研狗 2015-2020 京ICP备16006621 科研好助手,专业的科研社交共享平台