如何在R语言的vapply等apply系列函数中访问输入向量指定元素

你现有代码中vapply直接迭代向量g的元素，每次传入匿名函数的x是g的单个独立元素，而非完整的原向量，因此length(x)返回1，也无法直接通过x访问原向量的其他位置元素。

实现方案（优先使用vapply） #

推荐通过迭代原向量的索引序列实现任意位置元素的访问，该方法灵活性最高：

g <- c(1,2,3,4)
# seq_along(g)生成和g长度一致的索引序列：1,2,3,4
result <- vapply(seq_along(g), function(i, vec) {
  # i为当前迭代的索引
  current_element <- vec[i]
  # 直接指定下标即可访问原向量任意索引的元素，此处访问第二个元素
  target_element <- vec[2]
  # 示例返回：当前元素和目标元素的和，需和FUN.VALUE的声明一致
  return(c(current = current_element, target = target_element))
}, 
# 显式声明返回值为长度为2的数值型向量，vapply强制校验返回结构
FUN.VALUE = numeric(2), 
# 将原向量作为额外参数传入迭代函数，避免依赖全局变量
vec = g)

print(result)

运行后你可以在每次迭代中都获取到原向量的第二个元素，如果你需要访问其他位置的元素，只需修改vec[2]中的下标为你需要的索引即可。

如果仅需要用vapply单独提取指定索引的元素，可简化写法：

g <- c(1,2,3,4)
# 直接迭代目标索引2，提取第二个元素
second_element <- vapply(2, function(i, vec) vec[i], FUN.VALUE = numeric(1), vec = g)

注意事项 #

• vapply必须指定FUN.VALUE参数，声明每次迭代返回值的类型和长度，这是vapply类型安全特性的要求，缺失该参数会直接报错。
• 建议将原向量作为额外参数传入迭代函数，不要直接在函数内部调用全局环境的向量，降低代码耦合度，避免全局变量变更引发的意料外错误。

内容的提问来源于stack exchange，提问作者Jones