R2-09 第八期作业热图

Giant Panda 2017-12-25 17:04:34 阅读: 1041

library("ggplot2")

library("reshape2")

library("scales")

library("plyr")

mydata<-read.csv(file.choose(1))

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

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

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

邀请讨论

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

删除

回复关闭