使用 lapply 添加动态列

Question

在使用 lapply 添加列之后，我想知道是否可以使用lapply添加动态列。 我想为列表中的每个 dataframe 的新列添加不同的值：

z <- data.frame(a=1:10)
xlist <- list(z,z,z,z)
bvalues <- 1:4

在上面的问题中，我们在所有数据帧中添加了一个常量值

lapply(xlist, function(x) { x$b <- rep(8,10);return(x)})

要从bvalues动态添加值，我尝试了：

lapply(xlist, function(xx, ii) { xx[[ii]]$b <- bvalues[ii]; return(xx)})

但是得到了错误

Error in (function(x, i, exact) if (is.matrix(i)) as.matrix(x)[[i]] else .subset2(x,  : 
  argument "ii" is missing, with no default

这似乎是lapply调用有多个输入的问题，但我不知道如何解决这个问题。 这是我的预期 output：

[[1]]
    a b
1   1 1
2   2 1
3   3 1
4   4 1
5   5 1
6   6 1
7   7 1
8   8 1
9   9 1
10 10 1

[[2]]
    a b
1   1 2
2   2 2
3   3 2
4   4 2
5   5 2
6   6 2
7   7 2
8   8 2
9   9 2
10 10 2

[[3]]
    a b
1   1 3
2   2 3
3   3 3
4   4 3
5   5 3
6   6 3
7   7 3
8   8 3
9   9 3
10 10 3

[[4]]
    a b
1   1 4
2   2 4
3   3 4
4   4 4
5   5 4
6   6 4
7   7 4
8   8 4
9   9 4
10 10 4

Answer 1

一个lapply() function 可以被认为是：“把我的清单分开，每个部分都让它fun 。” 因此，您要分解的不是列表本身，而只是向量1:4 ：

lapply(1:4, function(xx) {xlist[[xx]]$b <- bvalues[xx]; xlist[[xx]]})

如果您想要 go 的lapply()路线，这将提供您想要的 output ； 另请注意@Onyambu 的评论

Map(cbind,xlist,b=bvalues)

还生产相同的 output。