course
/
RWEP
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

更新第8次作业模板

This commit is contained in:
Ming Su 2024-03-28 12:25:13 +08:00
parent 05b95f0793
commit cfd7686a24
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
SD/20240328_9_课后作业/第8次课后作业_模板.qmd
View File

@ -4,22 +4,21 @@ author: 姓名
format: html format: html
--- ---
# 下载airquality.xlsx，并读取数据
# 示例问题，在R中输出`1+2+3+...+100`的结果
采用`for`循环完成，代码如下：
```{r} ```{r}
total <- 0 # 下载至临时文件
for (i in 1:100) { tmpxlsxpath <- file.path(tempdir(), "airquality.xlsx")
total <- total + i download.file("https://drwater.rcees.ac.cn/git/course/RWEP/raw/branch/PUB/data/airquality.xlsx",
} destfile = tmpxlsxpath)
total airqualitydf <- readxl::read_xlsx(tmpxlsxpath, sheet = 1)
metadf <- readxl::read_xlsx(tmpxlsxpath, sheet = 2)
``` ```
# 根据`airqualitydf.xlsx`，按采样点统计白天（8:00-20:00）与夜晚（20:00-8:00）中空气质量指数（AQI）中位数，按城市统计低于所有采样点AQI30%分位值的采样点占比，列出上述占比最高的10个城市（不考虑采样点数低于5个的城市）。 # 根据`airqualitydf.xlsx`，按采样点统计白天（8:00-20:00）与夜晚（20:00-8:00）中空气质量指数（AQI）中位数，按城市统计低于所有采样点AQI30%分位值的采样点占比，列出上述占比最高的10个城市（不考虑采样点数低于5个的城市）。
# 按照不同城市分组，统计白天与夜晚AQI中位数是否具有显著差异。 # 按照不同城市分组，统计白天与夜晚AQI中位数是否具有显著差异。