R 向量
最后更新于：2022-03-27 02:48:11
R 向量
向量是 R 语言最基本的数据类型。
原子向量有6种类型：逻辑型（logical），整型（integer），双精度型（double），字符型（character），复数型（complex）和原始型（raw）。
创建向量
以下我们创建单个元素的向量，可以是以上 6 中类型中的任意一种：
实例
print("runoob");
# 双精度型原子向量
print(12.5)
# 整型原子向量
print(23L)
# 逻辑型原子向量
print(TRUE)
# 复数型原子向量
print(2+3i)
# 原始型原子向量
print(charToRaw(‘hello’))
执行以上代码输出结果为：
[1] "runoob" [1] 12.5 [1] 23 [1] TRUE [1] 2+3i [1] 68 65 6c 6c 6f
以下我们创建多个元素的向量，数字之间使用冒号 : 运算符：
实例
v <- 5:13
print(v)
# 创建 6.6 到 12.6 的系列
v <- 6.6:12.6
print(v)
# 如果最后一个元素不属于系列，就丢弃
v <- 3.8:11.4
print(v)
执行以上代码输出结果为：
[1] 5 6 7 8 9 10 11 12 13 [1] 6.6 7.6 8.6 9.6 10.6 11.6 12.6 [1] 3.8 4.8 5.8 6.8 7.8 8.8 9.8 10.8
我们也可以使用系列运算符 seq() 来创建向量。
以下实例我们创建 5 到 9 递增 0.4 的向量：
print(seq(5, 9, by = 0.4))
执行以上代码输出结果为：
[1] 5.0 5.4 5.8 6.2 6.6 7.0 7.4 7.8 8.2 8.6 9.0
c() 函数可以把非字符的元素转换为字符：
实例
s <- c(‘apple’,‘red’,5,TRUE)
print(s)
执行以上代码输出结果为：
[1] "apple" "red" "5" "TRUE"
访问向量元素
访问向量元素可以使用中括号 []，索引值从 1 开始（跟其他编程语言不太一样），如果索引为负数，则会删除该位置的元素，TRUE，FALSE 或 0 和 1。
实例
t <- c("Sun","Mon","Tue","Wed","Thurs","Fri","Sat")
u <- t[c(2,3,6)]
print(u)
# 使用逻辑索引，TRUE 表示读取，FALSE 为不读取
v <- t[c(TRUE,FALSE,FALSE,FALSE,FALSE,TRUE,FALSE)]
print(v)
# 第二个和第五个会被删除
x <- t[c(–2,–5)]
print(x)
# 使用 0/1 索引，1 表示读取，0 为不读取
y <- t[c(0,0,0,0,0,0,1)]
print(y)
执行以上代码输出结果为：
[1] "Mon" "Tue" "Fri" [1] "Sun" "Fri" [1] "Sun" "Tue" "Wed" "Fri" "Sat" [1] "Sun"
向量运算
我们可以对两个长度相同的向量进行相加，相减，相乘或相除等操作，结果同样以向量输出。
实例
v1 <- c(3,1,4,5,0,12)
v2 <- c(5,11,9,8,1,22)
# 相加
add.result <- v1+v2
print(add.result)
# V相减
sub.result <- v1–v2
print(sub.result)
# 相乘
multi.result <- v1*v2
print(multi.result)
# 相除
divi.result <- v1/v2
print(divi.result)
执行以上代码输出结果为：
[1] 8 12 13 13 1 34 [1] -2 -10 -5 -3 -1 -10 [1] 15 11 36 40 0 264 [1] 0.60000000 0.09090909 0.44444444 0.62500000 0.00000000 0.54545455
循环向量
如果两个元素的向量长度不一样，较短的会循环自身的元素，直到与长的向量元素一致。
实例
v2 <- c(5,6)
# V2 变成 c(5,6,5,6,5,6)
add.result <- v1+v2
print(add.result)
sub.result <- v1–v2
print(sub.result)
执行以上代码输出结果为：
[1] 6 14 12 11 5 18
[1] -4 2 2 -1 -5 6
向量排序
我们可以使用 sort() 函数对向量进行排序：
实例
# 排序
sort.result <- sort(v)
print(sort.result)
# decreasing 参数 TRUE 设置为降序，默认为 FALSE 为升序
revsort.result <- sort(v, decreasing = TRUE)
print(revsort.result)
# 对字符类型进行排序
v <- c("Runoob","Google","Zhihu","Facebook")
sort.result <- sort(v)
print(sort.result)
# 降序
revsort.result <- sort(v, decreasing = TRUE)
print(revsort.result)
执行以上代码输出结果为：
[1] -7 0 2 5 6 11 21 111 [1] 111 21 11 6 5 2 0 -7 [1] "Facebook" "Google" "Runoob" "Zhihu" [1] "Zhihu" "Runoob" "Google" "Facebook"