---
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/")`