84 lines
2.1 KiB
Plaintext
84 lines
2.1 KiB
Plaintext
|
---
|
|||
|
|
title: "课后作业6"
|
|||
|
|
subtitle: 《区域水环境污染数据分析实践》<br>Data analysis practice of regional water environment pollution
|
|||
|
|
author: 苏命、王为东<br>中国科学院大学资源与环境学院<br>中国科学院生态环境研究中心
|
|||
|
|
date: today
|
|||
|
|
lang: zh
|
|||
|
|
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}
|
|||
|
|
#| include: false
|
|||
|
|
#| cache: false
|
|||
|
|
lang <- "cn"
|
|||
|
|
require(tidyverse)
|
|||
|
|
require(learnr)
|
|||
|
|
```
|
|||
|
|
|
|||
|
|
## [第6次课后作业](第6次课后作业_模板.html)
|
|||
|
|
|
|||
|
|
1. 如何在 R 中将数字 10 赋值给变量 x？
|
|||
|
|
2. 在 R 中，如何创建一个包含数字 1 到 5 的向量？
|
|||
|
|
3. 编写一个条件语句，如果变量 age 大于等于 18，则打印 "成年人"，否则打印 "未成年人"。
|
|||
|
|
4. 使用 for 循环打印从 1 到 10 的整数。
|
|||
|
|
5. 编写一个名为 addition 的函数，接受两个参数 a 和 b，返回它们的和。
|
|||
|
|
6. 创建一个列表，包含三个元素：一个数字向量、一个字符向量和一个逻辑向量。
|
|||
|
|
7. 使用 read.csv() 函数读取名为 data.csv 的 CSV 文件，并将数据存储在一个名为 data 的数据框中。
|
|||
|
|
8. 从数据框中选择前五行，并将结果存储在一个新的数据框中。
|
|||
|
|
9. 将字符串 "hello world" 转换为大写。
|
|||
|
|
10. 从数据框中选择 score 列大于等于 90 的行。
|
|||
|
|
|
|||
|
|
## **data.csv**内容
|
|||
|
|
|
|||
|
|
```
|
|||
|
|
name,age,score
|
|||
|
|
Alice,25,85
|
|||
|
|
Bob,30,92
|
|||
|
|
Charlie,28,89
|
|||
|
|
David,22,95
|
|||
|
|
Eva,35,87
|
|||
|
|
Frank,27,91
|
|||
|
|
Grace,29,88
|
|||
|
|
Helen,26,93
|
|||
|
|
Ivan,31,86
|
|||
|
|
Jack,24,94
|
|||
|
|
Kelly,32,89
|
|||
|
|
Lily,28,90
|
|||
|
|
Mike,33,85
|
|||
|
|
Nancy,27,92
|
|||
|
|
Olivia,34,88
|
|||
|
|
Peter,29,93
|
|||
|
|
Queen,25,89
|
|||
|
|
Ryan,30,94
|
|||
|
|
Samantha,26,91
|
|||
|
|
Tom,31,87
|
|||
|
|
|
|||
|
|
```
|
|||
|
|
|
|||
|
|
|
|||
|
|
## 欢迎讨论！{.center}
|
|||
|
|
|
|||
|
|
|
|||
|
|
`r rmdify::slideend(wechat = FALSE, type = "public", tel = FALSE, thislink = "https://drwater.rcees.ac.cn/course/public/RWEP/@PUB/SD/")`
|
|||
|
|
|