R科研作图学习小组

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

    fenglashoubuli 发布于:2018.01.10
    Task1
    
    library(ggplot2)
    
    df2 <- data.frame(supp=rep(c("VC", "OJ"), each=3),
    
                      D=rep(c("D0.5", "D1", "D2"),2),
    
                      L=c(6.8, 15, 33, 4.2, 10, 29.5))
    
    head(df2)
    
    p<-ggplot(df2, aes(x=D, y=L, group=supp)) +
    
      geom_line(aes(color=supp))+
    
      geom_point(aes(color=supp))+ggtitle("R2-24")
    
    p + scale_color_grey() + theme_classic()


    R2-10_1.JPG

    #Task2
    
    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-24", 
    
           caption = "Source: midwest")
    
    plot(gg)


    R2-10_2.JPG

     

    setwd("D:/R-LMT/10/10")
    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 = "yellow", high = "red") +
      xlab("Type") + theme_bw() + ggtitle("R2-24")


    R2-10_3.JPG

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

    小组告示

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