R科研作图学习小组

http://group.keyangou.com/RGraph
组长: 管理员:
  • 访问次数:15625
  • 小组等级:8
  • 话题:567
  • 回答:34
  • 签到:357
  • 小组排名:
  • R2-02第八期ggplot画heatmap

    真·科研狗 发布于:2017.12.26
    library(reshape2)
    library(scales)
    library(plyr)
    library(ggplot2)
    data=read.csv("E:/2.csv",header = T)
    head(data)
    
    data1=melt(data,id.vars = c("ID"))
    head(data1)
    
    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="#00ff22",high="#ff5252")+
      xlab("Groups")+
      ylab("ID")+
      labs(title="R2-02")
    print(Q)

    Rplot06.png

     
    0条评论 34浏览 邀请回答
    沙发空缺中~

    小组告示

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