add slides
This commit is contained in:
		
							
								
								
									
										1
									
								
								SD/20240321_9_课后作业/_extensions
									
									
									
									
									
										Symbolic link
									
								
							
							
						
						
									
										1
									
								
								SD/20240321_9_课后作业/_extensions
									
									
									
									
									
										Symbolic link
									
								
							@@ -0,0 +1 @@
 | 
			
		||||
../../_extensions
 | 
			
		||||
							
								
								
									
										83
									
								
								SD/20240321_9_课后作业/index.qmd
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										83
									
								
								SD/20240321_9_课后作业/index.qmd
									
									
									
									
									
										Normal file
									
								
							@@ -0,0 +1,83 @@
 | 
			
		||||
---
 | 
			
		||||
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/")`
 | 
			
		||||
 | 
			
		||||
							
								
								
									
										42
									
								
								SD/20240321_9_课后作业/第6次课后作业_模板.qmd
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										42
									
								
								SD/20240321_9_课后作业/第6次课后作业_模板.qmd
									
									
									
									
									
										Normal file
									
								
							@@ -0,0 +1,42 @@
 | 
			
		||||
---
 | 
			
		||||
title: 课后作业6
 | 
			
		||||
author: 姓名
 | 
			
		||||
format: html
 | 
			
		||||
---
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
# 示例问题,在R中输出`1+2+3+...+100`的结果
 | 
			
		||||
 | 
			
		||||
采用`for`循环完成,代码如下:
 | 
			
		||||
 | 
			
		||||
```{r}
 | 
			
		||||
total <- 0
 | 
			
		||||
for (i in 1:100) {
 | 
			
		||||
  total <- total + i
 | 
			
		||||
}
 | 
			
		||||
total
 | 
			
		||||
```
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
# 如何在 R 中将数字 10 赋值给变量 x?
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
# 在 R 中,如何创建一个包含数字 1 到 5 的向量?
 | 
			
		||||
 | 
			
		||||
# 编写一个条件语句,如果变量 age 大于等于 18,则打印 "成年人",否则打印 "未成年人"。
 | 
			
		||||
 | 
			
		||||
# 使用 for 循环打印从 1 到 10 的整数。
 | 
			
		||||
 | 
			
		||||
# 编写一个名为 addition 的函数,接受两个参数 a 和 b,返回它们的和。
 | 
			
		||||
 | 
			
		||||
# 创建一个列表,包含三个元素:一个数字向量、一个字符向量和一个逻辑向量。
 | 
			
		||||
 | 
			
		||||
# 使用 read.csv() 函数读取名为 data.csv 的 CSV 文件,并将数据存储在一个名为 data 的数据框中。
 | 
			
		||||
 | 
			
		||||
# 从数据框中选择前五行,并将结果存储在一个新的数据框中。
 | 
			
		||||
 | 
			
		||||
# 将字符串 "hello world" 转换为大写。
 | 
			
		||||
 | 
			
		||||
# 从数据框中选择 score 列大于等于 90 的行。
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
		Reference in New Issue
	
	Block a user