R科研作图学习小组

http://group.keyangou.com/RGraph
组长: 管理员:
  • 访问次数:27206
  • 小组等级:9
  • 话题:593
  • 回答:39
  • 签到:437
  • 小组排名:
  • R2-06 第十期综合

    dean 发布于:2018.01.09

    part1


    library(ggplot2)

    data<-read.csv(file.choose())

    ggplot(data,aes(x=Day,y=Weight,group=Number))+

      geom_line()+

      geom_point(size=3,aes(colour=Number))+xlab("Time")+ylab("Weight")+

      xlim(0,8)+ylim(16,22)+labs(title="R2-06-dean")

      

    10-1.png


    part2


    library(ggplot2)

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

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

      geom_smooth(method='loess')+xlim(c(0,0.1))+ylim(c(0,500000))+

      labs(title="R2-06-dean")

    mytheme<- theme(panel.grid = element_blank(), panel.background=element_blank(),axis.text=element_blank(),axis.ticks = element_blank())+theme(legend.position = "bottom")

    data+mytheme

    10-2.png


    part3


    library(reshape2)

    library(scales)

    library(plyr)

    library(ggplot2)


    data<-read.csv(file.choose())


    data2<-melt(data,id.vars=c("Name"))


    data3<-ddply(data2,.(variable), transform,label=rescale(value))


    ggplot(data3, aes(x=variable,y=Name))+geom_tile(aes(fill=label))+scale_fill_gradient(low = "white", high = "blue")+xlab("Groups") +

      ggtitle("R2-06-dean")

    10-3.png

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

    小组告示

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