1. 决策
- 概述
决策结构要求程序员指定要由程序评估或测试的一个或多个条件,以及如果条件被确定为真则要执行的一个或多个语句,如果条件为假则执行其他语句。
Sr.No. | 声明和描述 |
---|---|
1 | if语句: 由一个布尔表达式后跟一个或多个语句组成 |
2 | if ... else语句: if语句后面可以有一个可选的else语句,当布尔表达式为false时执行 |
3 | switch语句: 允许根据值列表测试变量的相等性。 |
-
if语句
图1.png
# if语句
x = 30L
if(is.integer(x)) {
print("X is an Integer")
}
打印结果:
![3110861-d5672f3267ccf681.png](https://i-blog.csdnimg.cn/blog_migrate/f7060065990e80c2c39f7dcf047f09f1.webp?x-image-process=image/format,png)
图2.png
-
if...else...语句
图3.png
# if...else...
x = c("what", "is", "truth")
if("Truth" %in% x) {
print("Truth is found")
} else {
print("Truth is not found")
}
打印结果:
![3110861-c55ec3c941a67e56.png](https://i-blog.csdnimg.cn/blog_migrate/57f00a3de4afcea369a0f9e02a552eb8.webp?x-image-process=image/format,png)
图4.png
-
switch语句
图5.pngswitch语句规则:
-- 如果expression的值不是字符串,那么它被强制为整数。
-- 在交换机中可以有任意数量的case语句。 每个案例后面都跟要比较的值和冒号。
-- 如果整数的值在1和nargs() - 1(参数的最大数目)之间,则对case条件的相应元素求值并返回结果。
-- 如果表达式求值为字符串,那么该字符串与元素的名称匹配。
-- 如果有多个匹配,则返回第一个匹配元素。
-- 无默认参数可用。
-- 在没有匹配的情况下,如果有一个未命名的元素...它的值被返回。 (如果有多个这样的参数,则返回错误。)
示例:
# switch语句
x = switch(
3,
"first",
"second",
"third",
"fourth"
)
print(x)
打印结果:
![3110861-b33f8943797169ec.png](https://i-blog.csdnimg.cn/blog_migrate/1066e5ef84479ee41cd98f0804d4b2d0.webp?x-image-process=image/format,png)
图6.png
2. 包
- 包路径和查询包
# 获取R包路径
.libPaths()
# 获取所有软件包列表
library()
![3110861-6e62232aeb6fb481.png](https://i-blog.csdnimg.cn/blog_migrate/e6ab1038213ee305101555509b063af5.webp?x-image-process=image/format,png)
图7.png
![3110861-20c5f93cab6454cb.png](https://i-blog.csdnimg.cn/blog_migrate/b2cf2636e91386b821162a8f27f5c16a.webp?x-image-process=image/format,png)
图8.png
- 获取当前加载包
# 获取当前R环境中加载的所有包
search()
打印结果:
![3110861-669b02772fcd0ec1.png](https://i-blog.csdnimg.cn/blog_migrate/ef84e3d47f6aba2ca2b3ec7b39daf47e.webp?x-image-process=image/format,png)
图9.png
- 安装包
I. 直接从CRAN安装
# 从CRAN网页获取软件包
install.packages("spe", repos="https://cran.cnr.berkeley.edu/")
执行结果:
![3110861-908ef498f7a019f7.png](https://i-blog.csdnimg.cn/blog_migrate/c9d9b01a8cc198818e903173e3412a00.webp?x-image-process=image/format,png)
图10.png
II. 手动安装包
下载安装包
# 手动安装
install.packages("C:\\Users\\mazaiting\\Desktop\\spec_0.1.3.zip", repos = NULL, type = "source")
执行结果:
![3110861-286be29abf3fd196.png](https://i-blog.csdnimg.cn/blog_migrate/0c0930c3bb0024a4ab46154ddbf425e2.webp?x-image-process=image/format,png)
图11.png
- 装载包到库中
library("package Name", lib.loc = "path to library")
3. 循环
- 循环种类
Sr.No. | 循环类型和描述 |
---|---|
1 | repeat循环:多次执行一系列语句,并简化管理循环变量的代码。 |
2 | while循环:在给定条件为真时,重复语句或语句组。 它在执行循环体之前测试条件。 |
3 | for循环:像while语句,不同之处在于它测试在循环体的端部的条件。 |
I. repeat循环
![3110861-34481dd1e6058ad8.png](https://i-blog.csdnimg.cn/blog_migrate/5abba022504f6558d8c2e6bb60121895.webp?x-image-process=image/format,png)
图12.png
示例:
# repeat语句
v = c("Hello","loop")
cnt = 2
repeat {
print(v)
cnt = cnt+1
if(cnt > 5) {
break
}
}
打印结果:
![3110861-be37446159f016f5.png](https://i-blog.csdnimg.cn/blog_migrate/7dd4c5f580a7695492358b2bc2d4be43.webp?x-image-process=image/format,png)
图13.png
II. while循环
![3110861-b8cf67c0000c4b5a.png](https://i-blog.csdnimg.cn/blog_migrate/6a9eaf48ba57f1aee8132e3e36a89882.webp?x-image-process=image/format,png)
图14.png
示例:
# while循环语句
v = c("Hello","while loop")
cnt = 2
while (cnt < 7) {
print(v)
cnt = cnt + 1
}
打印结果:
![3110861-e3aa07dc7fa1876a.png](https://i-blog.csdnimg.cn/blog_migrate/c61f8ccd0c25ca7ad40d86ea0bdecb89.webp?x-image-process=image/format,png)
图15.png
III. for循环
![3110861-75328fc9d86b2eb2.png](https://i-blog.csdnimg.cn/blog_migrate/1e983b19c988bb0d3b14f0601c81a1ae.webp?x-image-process=image/format,png)
图16.png
示例:
# for循环语句
v <- LETTERS[1:4]
for ( i in v) {
print(i)
}
打印结果:
![3110861-e8e017ee5d0f6ee1.png](https://i-blog.csdnimg.cn/blog_migrate/87324ace7e8628656c482770ae67e7e9.webp?x-image-process=image/format,png)
图17.png
- 循环控制语句
Sr.No. | 控制语句和描述 |
---|---|
1 | break语句:终止循环语句,并将执行转移到循环后立即执行的语句。 |
2 | next语句:next语句模拟R语言switch语句的行为。 |
I. break语句
![3110861-6e3ddd224c9d7d56.png](https://i-blog.csdnimg.cn/blog_migrate/16eeb0c2444fe50ca442021c44d0ce45.webp?x-image-process=image/format,png)
图18.png
示例:
# break语句
v <- c("Hello","loop")
cnt <- 2
repeat {
print(v)
cnt <- cnt + 1
if(cnt > 5) {
break
}
}
打印结果:
![3110861-fa0011c9cb14fce4.png](https://i-blog.csdnimg.cn/blog_migrate/5a4e6bbebfd48c11a6aa1b8f63d6b9e4.webp?x-image-process=image/format,png)
图19.png
II. next语句
![3110861-f7b95563ac7a14e1.png](https://i-blog.csdnimg.cn/blog_migrate/a5dcbcd097d6277cb8f6637ee0cf1ebc.webp?x-image-process=image/format,png)
图20.png
示例:
# next语句
v <- LETTERS[1:6]
for ( i in v) {
if (i == "D") {
next
}
print(i)
}
打印结果:
![3110861-d351a98a7ddbd38f.png](https://i-blog.csdnimg.cn/blog_migrate/cce477ab243952e19abf40686f890efe.webp?x-image-process=image/format,png)
图21.png
4. 数据重塑
- 数据帧中加入列和行
示例:
# 数据帧加入列和行
# 创建向量对象
city = c("Tampa", "Seattle", "Hartford", "Denver")
state = c("FL", "WA", "CT", "CO")
zipcode = c(33602, 98104, 06161, 80294)
# 将三个向量联合为一个数据帧
addresses = cbind(city, state, zipcode)
# 打印第一个输出提示
cat("# # # # The first data frame
")
# 打印第一个数据帧
print(addresses)
# 创建另一个数据帧
new.address = data.frame(
city = c("Lowry", "Charlotte"),
state = c("CO", "FL"),
zipcode = c("80230", "33949"),
stringsAsFactors = FALSE
)
# 打印第二个输出提示
cat("# # # The Second data frame
")
# 打印数据帧
print(new.address)
# 从数据帧中合并行
all.addresses = rbind(addresses, new.address)
# 打印第三个提示
cat("# # # The combined data frame
")
# 打印结果
print(all.addresses)
打印结果:
![3110861-5de77b350ea6df40.png](https://i-blog.csdnimg.cn/blog_migrate/9567dd7d5d23fb651b923a55f9a1cd0f.webp?x-image-process=image/format,png)
图22.png
- 合并数据帧
示例:
# 合并数据帧
library(MASS)
merged.Pima = merge(
x = Pima.te,
y = Pima.tr,
by.x = c("bp", "bmi"),
by.y = c("bp", "bmi")
# by.x = c("skin", "glu"),
# by.y = c("skin", "glu")
)
# 打印合并后的数据
print(merged.Pima)
# 打印行数
nrow(merged.Pima)
打印结果:
![3110861-0a2025136a377329.png](https://i-blog.csdnimg.cn/blog_migrate/43e17616cb9b38aadc885e4dd27d9b57.webp?x-image-process=image/format,png)
图23.png
- 船舶数据集
library(MASS)
# 打印船舶数据集
print(ships)
打印结果:
![3110861-564ab1bd9cc45302.png](https://i-blog.csdnimg.cn/blog_migrate/227bd5052bc89f94d48e20a94003f1b8.webp?x-image-process=image/format,png)
图24.png
- melt()拆分数据
示例:
# 此包中提供melt()和cast(), 需要下载
# install.packages("reshape2", repos = "https://cran.cnr.berkeley.edu/")
# melt()拆分数据
library(reshape2)
library(MASS)
molten.ships = melt(ships, id = c("type", "year"))
print(molten.ships)
打印结果:
![3110861-7c67ec94112a7662.png](https://i-blog.csdnimg.cn/blog_migrate/a1ca35b46ab805214e9b7f4bab90da26.webp?x-image-process=image/format,png)
图25.png
- dcast()数据重构
示例:
library(reshape2)
library(MASS)
molten.ships = melt(ships, id = c("type", "year"))
# print(molten.ships)
# dcast() 重构数据
recasted.ship = dcast(molten.ships, type+year~variable,sum)
print(recasted.ship)
打印结果:
![3110861-3f182e46e1862727.png](https://i-blog.csdnimg.cn/blog_migrate/28861bd0b2f373192f0997549426ece9.webp?x-image-process=image/format,png)
图26.png
5. 函数
- 函数定义
使用关键字函数创建R语言的函数。 R语言的函数定义的基本语法如下
function_name <- function(arg_1, arg_2, ...) {
Function body
}
- 函数组件
函数的不同部分 -
函数名称 -这是函数的实际名称。 它作为具有此名称的对象存储在R环境中。
参数 -参数是一个占位符。 当函数被调用时,你传递一个值到参数。 参数是可选的; 也就是说,一个函数可能不包含参数。 参数也可以有默认值。
函数体 -函数体包含定义函数的功能的语句集合。
返回值 -函数的返回值是要评估的函数体中的最后一个表达式。 - 内置功能
# 内置函数
# 创建一串数字,从32到44
print(seq(32, 44))
# 中间数
print(mean(25:82))
# 从41加到68
print(sum(41:68))
打印结果:
![3110861-239a57164233ff0b.png](https://i-blog.csdnimg.cn/blog_migrate/f9b996e78a100cc7e0e7cdf718082b6c.webp?x-image-process=image/format,png)
图27.png
- 自定义函数
# 用户定义的函数
new.function <- function(a) {
for (i in 1:a) {
b <- i^2
print(b)
}
}
# 调用函数
new.function(6)
打印结果:
![3110861-799f218daa379067.png](https://i-blog.csdnimg.cn/blog_migrate/c776ffca5f1fcaacc3666791065f4488.webp?x-image-process=image/format,png)
图28.png