R2-31-第8次作业 -热图

小伊伊 2017-12-23 23:58:46 阅读: 977

library(reshape2)

library(scales)

library(plyr)

library(ggplot2)

data=read.csv(file.choose())

data

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

p=ddply(data1,.(variable),transform,label=rescale(value))

Q=ggplot(p,aes(x=variable,y=ID))+geom_tile(aes(fill=label))+scale_fill_gradient(low="green",high="red")+xlab("Groups")+ylab("ID")+labs(title="R2-31")

Q

邀请讨论

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

删除

回复关闭