R科研作图学习小组

http://group.keyangou.com/RGraph
组长: 管理员:
  • 访问次数:25824
  • 小组等级:9
  • 话题:593
  • 回答:39
  • 签到:428
  • 小组排名:
  • R2-01 第八期-热图

    木萱小主 发布于:2017.12.20
    library(reshape2)
    library(scales)
    library(plyr)
    library(ggplot2)
    data<-read.table("2.csv",sep=",",header=T)
    data2<-melt(data,id.vars=c("ID"))
    data3<-ddply(data2,.(variable), transform,label=rescale(value))
    ggplot(data3, aes(x=variable,y=ID))+geom_tile(aes(fill=label))+scale_fill_gradient(low = "yellow", high = "red")+xlab("Groups") + ggtitle("R2-01")+geom_text(aes(label=round(label,2)),size=4)

     
  • 1.jpeg(大小:32.4 KB;下载:1)
  • 0条评论 246浏览 邀请回答
    沙发空缺中~

    小组告示

    科研狗 2012-2016 京ICP备16006621 科研好助手,专业的科研社交共享平台