2024-03-21 22:30:54 +08:00
|
|
|
|
---
|
2024-03-28 08:15:02 +08:00
|
|
|
|
title: "课后作业8"
|
2024-03-21 22:30:54 +08:00
|
|
|
|
subtitle: 《区域水环境污染数据分析实践》<br>Data analysis practice of regional water environment pollution
|
|
|
|
|
author: 苏命、王为东<br>中国科学院大学资源与环境学院<br>中国科学院生态环境研究中心
|
|
|
|
|
date: today
|
|
|
|
|
lang: zh
|
2024-04-05 12:19:23 +08:00
|
|
|
|
resources:
|
|
|
|
|
- "*.pdf"
|
|
|
|
|
- "*.sas"
|
2024-03-21 22:30:54 +08:00
|
|
|
|
format:
|
|
|
|
|
revealjs:
|
|
|
|
|
theme: dark
|
|
|
|
|
slide-number: true
|
|
|
|
|
chalkboard:
|
|
|
|
|
buttons: true
|
|
|
|
|
preview-links: auto
|
|
|
|
|
lang: zh
|
|
|
|
|
toc: true
|
|
|
|
|
toc-depth: 1
|
|
|
|
|
toc-title: 大纲
|
|
|
|
|
logo: ./_extensions/inst/img/ucaslogo.png
|
|
|
|
|
css: ./_extensions/inst/css/revealjs.css
|
|
|
|
|
pointer:
|
|
|
|
|
key: "p"
|
|
|
|
|
color: "#32cd32"
|
|
|
|
|
pointerSize: 18
|
|
|
|
|
revealjs-plugins:
|
|
|
|
|
- pointer
|
|
|
|
|
filters:
|
|
|
|
|
- d2
|
|
|
|
|
---
|
|
|
|
|
|
|
|
|
|
```{r}
|
2024-03-25 21:48:30 +08:00
|
|
|
|
#| include: false
|
|
|
|
|
#| cache: false
|
|
|
|
|
lang <- "cn"
|
|
|
|
|
require(tidyverse)
|
|
|
|
|
require(learnr)
|
2024-03-21 22:30:54 +08:00
|
|
|
|
```
|
|
|
|
|
|
2024-03-28 08:15:02 +08:00
|
|
|
|
## 第8次课后作业
|
2024-03-21 22:30:54 +08:00
|
|
|
|
|
2024-03-26 16:58:06 +08:00
|
|
|
|
1. 根据`airqualitydf.xlsx`,按采样点统计白天(8:00-20:00)与夜晚(20:00-8:00)中空气质量指数(AQI)中位数,按城市统计低于所有采样点AQI30%分位值的采样点占比,列出上述占比最高的10个城市(不考虑采样点数低于5个的城市)。
|
|
|
|
|
2. 按照不同城市分组,统计白天与夜晚AQI中位数是否具有显著差异。
|
2024-03-21 22:30:54 +08:00
|
|
|
|
|
2024-03-28 08:15:02 +08:00
|
|
|
|
作业模板:[第8次课后作业_模板.qmd](https://drwater.rcees.ac.cn/git/course/RWEP/raw/branch/main/SD/20240328_9_课后作业/第8次课后作业_模板.qmd)
|
2024-03-21 22:30:54 +08:00
|
|
|
|
|
2024-04-05 12:19:23 +08:00
|
|
|
|
## 示例代码
|
|
|
|
|
|
|
|
|
|
### 基于R的示例结果
|
|
|
|
|
|
|
|
|
|
- [第8次课后作业R示例代码结果](./第8次课后作业_模板.html)
|
|
|
|
|
|
|
|
|
|
### 基于SAS的示例结果
|
|
|
|
|
|
|
|
|
|
- [第8次课后作业SAS示例代码](./第8次课后作业_模板.sas)
|
|
|
|
|
- [第8次课后作业SAS示例结果1](./median.pdf)
|
|
|
|
|
- [第8次课后作业SAS示例结果2](./freq.pdf)
|
|
|
|
|
- [第8次课后作业SAS示例结果3](./airqualitymedianoutrow5.pdf)
|
|
|
|
|
- [第8次课后作业SAS示例结果4](./npar1wayConover.pdf)
|
2024-03-21 22:30:54 +08:00
|
|
|
|
|
|
|
|
|
## 欢迎讨论!{.center}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
`r rmdify::slideend(wechat = FALSE, type = "public", tel = FALSE, thislink = "https://drwater.rcees.ac.cn/course/public/RWEP/@PUB/SD/")`
|
|
|
|
|
|