R2-33 第八期-热图

R48-小之 2017-12-26 21:56:34 阅读: 1112

library(ggplot2)

library(plyr)

library(reshape2)

library(scales)

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

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

mydata1<-ddply(mydata1,.(variable),transform)

ggplot(mydata1,aes(variable,ID))+ggtitle("R2-33")+geom_tile(aes(fill=value),color="white")+

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

##id.vars保证ID列不会被merge，会保留完整。

##limit=c(0,5) 可限制范围

##rescale=rescale(value) 重新计算，范围0~1。geom_tile(aes(fill=value))中，value可替换为rescale

邀请讨论

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

删除

回复关闭