R2-04 第八次作业热图

blanking 2017-12-26 21:39:04 阅读: 1277

library(reshape2)

library(scales)

library(plyr)

library(ggplot2)

R2_04_8 <- read.csv("/users/taowang/documents/R/R2/R2-8/2.csv",header = T)

R2_04_8 <- melt(R2_04_8,id.vars=c("ID"))

R2_04_8 <- ddply(R2_04_8, .(variable), transform,lable= scale(value, center=T,scale=F) )

ggplot(R2_04_8, aes(x= variable, y = ID))+

geom_tile(aes(fill=lable))+

scale_fill_gradient(low = "green", high = "red")+

xlab("Groups")+

ylab("miRNA ID")+

ggtitle("R2-04")

邀请讨论

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

删除

回复关闭