zoukankan      html  css  js  c++  java
  • R(week 13)

    d <- sample(1:10, 7)
    d
    sort(d, decreasing = TRUE)
    tmpIndex <- order(d)
    d[tmpIndex]
    
    tmpIndex <- order(airquality$Wind)
    tmpIndex
    
    scoreSheet1 <- data.frame(stName = c("sdfs", "dsfsd", "saa", "bb", "aa"), 
                  semester = c(rep(1, 5), rep(2, 5)), English = round(rnorm(10, 75, 4)),
                  Chinese = round(rnorm(10, 80, 10)))
    scoreSheet1
    aggregate(Chinese ~ semester, data = scoreSheet1, FUN = mean)
    
    library(tidyverse)
    
    sheet1 <- data.frame(stName = c("sdfs", "dsfsd", "saa", "bb", "aa"), 
                              semester = c(rep(1, 5), rep(2, 5)), English = round(rnorm(10, 75, 4)),
                              Chinese = round(rnorm(10, 80, 10)))
    view(sheet1)
    
    sheet2 <- gather(sheet1, key = course, 
                     value = score, English, Chinese)
    sheet2
    view(sheet2)
    
    sheet2$semester <- as.factor(sheet2$semester)
    
    ggplot(sheet2, aes(x = course, y = score, fill = semester)) + 
      geom_boxplot()
    
    sheet3 <- spread(sheet2, key = course, 
                      value = score)
    
    view(sheet3)
    
    group_by(airquality, Month) %>%
      summarise(mean(Wind))
    

      

  • 相关阅读:
    私有IP地址
    Python随手记
    Selenium+Python环境搭建
    FTP- Download, upload, Delete & find files
    初学Selenium遇上的问题
    automate sap遇上的一些问题
    LR常见问题
    服务器资源监控指标
    QTP场景恢复函数
    导出excel用例
  • 原文地址:https://www.cnblogs.com/sineagle/p/14805447.html
Copyright © 2011-2022 走看看