将列表中的元素添加到多个其他嵌套列表

Question

我有一个列表列表，如下：

my_list = list(list(a=1,b=2),list(a=1,b=2),list(a=1,b=2))

我有一个向量b_new，长度和length(my_list)一模一样：

b_new = c(3,4,5)

我想用 b 中的值顺序覆盖 my_list 的 b 元素，所以预期的输出是：

my_list = list(list(a=1,b=3),list(a=1,b=4),list(a=1,b=5))

我显然可以在 for 循环中做到这一点：

for(i in 1:length(b_new))
{
  my_list[[i]]$b=b_new[i]
}

但我想知道是否有一种方法可以在没有 for 循环的情况下执行此操作，例如使用 mapply？

Answer 1

这仍然是一个循环，但以下内容会做到这一点：

Map(`[<-`, my_list, "b", b_new)
# or more pleasantly named:
Map(replace, my_list, "b", b_new)

str(Map(`[<-`, my_list, "b", b_new))
#List of 3
# $ :List of 2
#  ..$ a: num 1
#  ..$ b: num 3
# $ :List of 2
#  ..$ a: num 1
#  ..$ b: num 4
# $ :List of 2
#  ..$ a: num 1
#  ..$ b: num 5