R科研作图学习小组

http://group.keyangou.com/RGraph
组长: 管理员:
  • 访问次数:14216
  • 小组等级:8
  • 话题:550
  • 回答:31
  • 签到:340
  • 小组排名:
  • R2-09 第十期 综合任务

    Giant Panda 发布于:2018.01.09

    library("ggplot2")

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

    ggplot(A,aes(x=mean,y=statu,colour=group,shape=group))+

      geom_errorbar(aes(ymin=statu-sd,ymax=statu+sd),width=0.1)+

      geom_line(position=position_dodge(0.2))+

      geom_point(position=position_dodge(0.2),size=4)+

      ggtitle("R2-09")


    7777.png

    options("scipen=999")

    library("ggplot2")

    theme_set(theme_bw())

    data("midwest",package="ggplot2")

    gg<-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(subtitle="Area vs Population",

           y="Population",

           x="Area",

           title="R2-09",

           caption="Source:midwest")

    1111.png

    install.packages("RColorBrewer")

    library("RColorBrewer")


    library("ggplot2")


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

    mymatrix=data.matrix(mydata[,c(-1)])


    row.names(mymatrix)=mydata[,1]


    heatmap(mymatrix,Rowv=NA,Colv=NA,scale="column",main="R2-09")

    3333.png

     

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

    小组告示

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