R rev() 函数 - 反转向量
R 语言实例R rev() 函数用于反转向量中元素的顺序。
它将向量的最后一个元素变为第一个，第一个变为最后一个。
rev() 函数语法格式如下：
rev(x)
参数说明：
x 输入向量。
实例
# 反转数值向量
x <- 1:10
print("原始向量:")
print(x)
print("反转后:")
print(rev(x))
# 反转字符向量
months <- month.abb[1:6] # 前 6 个月缩写
print("前 6 个月:")
print(months)
print("反转:")
print(rev(months))
x <- 1:10
print("原始向量:")
print(x)
print("反转后:")
print(rev(x))
# 反转字符向量
months <- month.abb[1:6] # 前 6 个月缩写
print("前 6 个月:")
print(months)
print("反转:")
print(rev(months))
执行以上代码输出结果为：
[1] "原始向量:" [1] 1 2 3 4 5 6 7 8 9 10 [1] "反转后:" [1] 10 9 8 7 6 5 4 3 2 1 [1] "前 6 个月:" [1] "Jan" "Feb" "Mar" "Apr" "May" "Jun" [1] "反转:" [1] "Jun" "May" "Apr" "Mar" "Feb" "Jan"
rev() 与 cumsum() 结合可以实现不同的累计计算方向：
实例
x <- c(10, 20, 30, 40, 50)
# 正向累加
print("正向累加:")
print(cumsum(x))
# 反向累加（从末尾往回累加）
print("反向累加:")
print(rev(cumsum(rev(x))))
# 正向累加
print("正向累加:")
print(cumsum(x))
# 反向累加（从末尾往回累加）
print("反向累加:")
print(rev(cumsum(rev(x))))
执行以上代码输出结果为：
[1] "正向累加:" [1] 10 30 60 100 150 [1] "反向累加:" [1] 150 140 120 90 50