如何在R的lapply中处理类似append的追加类函数？

你的核心问题是：lapply会对每个元素独立执行函数，每次都基于**初始的x**生成新对象，所以最终得到的是多个独立修改后的对象列表，而非累积更新的单一对象。要实现累加效果，更适合用Reduce函数（它专门用于累积式的迭代运算），而非lapply。

正确实现代码 #

# 你的追加函数
add_to_a_list = function(object, item_to_add){
  object$a = append(object$a, item_to_add, after = TRUE)
  return(object)
}

# 待追加的内容
stuff_to_add = c('raaa', 'ruuu', 'riii')
# 初始对象
x = list(a = list(), b = list())

# 用Reduce实现累积追加
x = Reduce(add_to_a_list, stuff_to_add, init = x)

# 查看结果
str(x)

这段代码运行后，x$a会包含所有追加的元素，和for循环的效果完全一致。

为什么之前的lapply写法不行？ #

你之前的lapply代码里，每个迭代的函数都是基于最初的x（空列表a）去添加元素，所以每个返回的对象都是只加了一个元素的独立版本，最终得到的是3个这样的对象组成的列表，而非累积更新后的x。

（不推荐）如果一定要用lapply实现 #

如果坚持要用lapply，需要通过修改全局环境的变量或者传递环境来实现累积，但这种写法有副作用，代码可读性差，不建议使用：

x = list(a = list(), b = list())
lapply(stuff_to_add, function(item){
  # 用<<-修改全局环境中的x
  x <<- add_to_a_list(x, item)
})
# 此时x已经是累积后的对象
str(x)

还是推荐用Reduce，它更符合函数式编程的风格，没有副作用，代码清晰且效率和for循环相当，也能方便地扩展并行（比如用future.apply包的future_Reduce）。

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