R科研作图学习小组

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

    小伊伊 发布于:2018.01.09
    task1:
    
    df2 <- data.frame(supp=rep(c("VC", "OJ"), each=3),
                      
                      dose=rep(c("D0.5", "D1", "D2"),2),
                      
                      len=c(6.8, 15, 33, 4.2, 10, 29.5))
    
    head(df2)
    
    p<-ggplot(df2, aes(x=dose, y=len, group=supp)) +
      
      geom_line(aes(color=supp))+
      
      geom_point(aes(color=supp))+ggtitle("R2-31")
    
    p+scale_color_grey()+theme_classic()
    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-31", 
           
           caption = "Source: midwest")
    
    plot(gg)
    task3:
    
    install.packages("RColorBrewer")
    
    library(RColorBrewer)
    
    nba <- read.csv(file.choose())
    
    nba <- nba[order(nba$PTS),]
    
    row.names(nba) <- nba$Name
    
    nba <- nba[,2:20]
    
    nba_matrix <- data.matrix(nba)
    
    nba_heatmap <- heatmap(nba_matrix, Rowv=NA, Colv=NA, col = brewer.pal(9, "Blues"),
                           scale="column", margins=c(5,10), main="R2-31")

    Rplot04.pngRplot.pngRplot01.png

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

    小组告示

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