R2-38 第八期-热图

jinhui 2017-12-25 16:49:03 阅读: 1132

library(reshape2)

library(scales)

library(plyr)

library(ggplot2)

setwd("D:/projects/R learning/week 8 data")

data <- read.csv("2.csv")

head(data)

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

data<-ddply(data,.(variable), transform,label=rescale(value))

graph <- ggplot(data, aes(x=variable, y=ID))+

geom_tile(aes(fill=label))+

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

labs(x = "", y = "miRNA ID", title ="R2-38") +

geom_text(aes(label=round(label,2)),size=4)

邀请讨论

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

删除

回复关闭