71 lines
1.5 KiB
Plaintext
71 lines
1.5 KiB
Plaintext
---
|
|
title: "课后作业6"
|
|
format:
|
|
dwsd-revealjs:
|
|
logo: _extensions/drwater/dwsd/inst/ucaslogo.png
|
|
---
|
|
|
|
|
|
```{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}
|
|
#| results: 'asis'
|
|
#| echo: false
|
|
rmdify::slideend(
|
|
wechat = FALSE,
|
|
type = "public",
|
|
tel = FALSE,
|
|
thislink = "../"
|
|
)
|
|
```
|
|
|