R科研作图学习小组

http://group.keyangou.com/RGraph
组长: 管理员:
  • 访问次数:18355
  • 小组等级:9
  • 话题:588
  • 回答:39
  • 签到:385
  • 小组排名:
  • R2-04 第十期 混乱搭配作业

    blanking 发布于:2018.01.09

    library(ggplot2)

    library(RColorBrewer)

    #任务1

    mytheme <- theme_classic()+theme(panel.grid.major = element_blank())

    R10_1 <- read.csv("/Users/taowang/documents/R/R2/R2-10/R10_1.csv",header = T)

    R10_1

    ggplot(R10_1,aes(x=Group, y = value, color = Gene))+

      geom_line()+

      geom_point()+

      geom_errorbar(aes(ymin= value-bar,ymax = value+bar))+

      ggtitle("R2-04")+

      mytheme

    #任务2

    head(midwest)

    ggplot(midwest,aes(x=area,y=poptotal))+

    geom_point(aes(col= state, size= popdensity))+

    geom_smooth(method = 'loess',se=F)+

    xlim(c(0,0.1))+

    ylim(c(0,500000))+

    labs(title="R2-04",subtitle= "Area Vs Population",

         x = "Area",

         y = "Population",

         caption = "Source: midwest")+

      mytheme

    #任务3

    R10_3 <- read.csv("/Users/taowang/documents/R/R2/R2-10/task3.csv",header = T)

    head(R10_3)

    row.names(R10_3) <- R10_3$Name

    head(R10_3)

    R10_3 <- R10_3[,-1]

    head(R10_3)

    R10_3 <- data.matrix(R10_3)

    heatmap(R10_3,Rowv = NA, Colv = NA, col = brewer.pal(9,"Blues"), scale="column", margins=c(5,10))

    R2-10-1.png


    R2-10-2.png


    R2-10-3.png


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

    小组告示

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