R append() 函数 - 追加元素
R 语言实例R append() 函数用于向向量中插入元素。
append() 可以在向量的指定位置插入新元素，比直接用 c() 拼接更灵活。
append() 函数语法格式如下：
append(x, values, after = length(x))
参数说明：
x 原始向量。
values 要添加的元素。
after 插入位置（在哪个索引之后），默认为末尾。
实例
x <- c(1, 2, 3, 4, 5)
# 在末尾追加
result1 <- append(x, c(6, 7))
print("末尾追加:")
print(result1)
# 在指定位置之后插入
result2 <- append(x, c(9, 9), after = 2)
print("在第 2 个元素后插入:")
print(result2)
# 在开头插入（after = 0）
result3 <- append(x, 0, after = 0)
print("在开头插入:")
print(result3)
# 在末尾追加
result1 <- append(x, c(6, 7))
print("末尾追加:")
print(result1)
# 在指定位置之后插入
result2 <- append(x, c(9, 9), after = 2)
print("在第 2 个元素后插入:")
print(result2)
# 在开头插入（after = 0）
result3 <- append(x, 0, after = 0)
print("在开头插入:")
print(result3)
执行以上代码输出结果为：
[1] "末尾追加:" [1] 1 2 3 4 5 6 7 [1] "在第 2 个元素后插入:" [1] 1 2 9 9 3 4 5 [1] "在开头插入:" [1] 0 1 2 3 4 5
append() 在动态构建向量时非常实用：
实例
# 动态收集满足条件的数据
all_numbers <- 1:20
result <- c() # 空向量
for (num in all_numbers) {
if (num %% 3 == 0) { # 能被 3 整除
result <- append(result, num)
}
}
print("能被 3 整除的数:")
print(result)
all_numbers <- 1:20
result <- c() # 空向量
for (num in all_numbers) {
if (num %% 3 == 0) { # 能被 3 整除
result <- append(result, num)
}
}
print("能被 3 整除的数:")
print(result)
执行以上代码输出结果为：
[1] "能被 3 整除的数:" [1] 3 6 9 12 15 18