R科研作图学习小组

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

    jinhui 发布于:2018.01.09

    #Figure 1

    setwd("D:/projects/R learning/week 10 data")

    data<-read.csv("R2-1-2.csv",header=TRUE)

    library(ggplot2)

    graph <- ggplot(data=data, aes(Time,value,color =SIZE,shape = SIZE))+

      geom_line(color = "black")+geom_point(size=4)+ 

      ggtitle("R2-38")+theme_bw()+theme(panel.border = element_blank(),panel.grid.major = element_blank(),panel.grid.minor = element_blank())


    #Figure 2

    library(ggplot2)

    options(scipen=999)

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

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

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

      geom_smooth(method="loess", se=T) +

      scale_color_brewer(palette = "Spectral")+ 

      xlim(c(0, 0.1)) + 

      ylim(c(0, 500000)) + 

      labs(subtitle="Area Vs Population", 

           y="Population", x="Area",title="R2-38",caption = "Source: midwest")


    #Figure 3

    library(reshape2)

    library(ggplot2)

    library(plyr)

    library(scales)

    data_heatmap<- read.csv("task3.csv")

    data_m <- melt(data_heatmap, id.vars=c("Name"))

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

    ggplot(data_m, aes(x=variable,y=Name)) + 

      geom_tile(aes(fill=label)) + 

      scale_fill_gradient(low = "white", high = "steelblue") +

      xlab("Type") + theme_bw() + ggtitle("R2-38")


    1.png


    2.png

    3.png

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

    小组告示

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