在 lapply-R 中使用 cbind 出错

Question

让我有一个数据帧列表（l1），我有一个由整数组成的向量（v1）。

我想将 v1 与 l1 的每个元素结合起来。 让：

l1[[1]]：

head1
-----
4
3.2
4.1

l1[[2]]：

head2
-----
1.2
0.9
3.2 

然后让

v1：

head3
-----
5
4
7

所以结果列表（l2）应该是：

l2[[1]]：

   head3 head1
   ----- -----
    5    4
    4    3.2
    7    4.1

l2[[2]]：

   head3 head2
   ----- -----
    5    1.2
    4    0.9
    7    3.2 

我使用以下代码：

l2<-lapply(l1, function(i) cbind(v1,l1[[i]]))

但是，我收到这样的错误：

Error in lapply(l1, function(i) cbind(z, l1[[i]])) : 
  object 'l1' not found

为什么我会收到这个错误？ 我会很高兴得到任何帮助。 非常感谢。

Answer 1

我们可以使用Map

Map(cbind, l1, v1)

如果 'v1' 是一个vector

Map(cbind, l1, list(v1))

或者只是用lapply循环遍历 'l1' 的序列

lapply(seq_along(l1), function(i) cbind(v1, l1[[i]]))

或者使用transform来创建一个新列

lapply(l1, transform, head3=v1$head3)

注意：假设 'v1' 是一个data.frame

---

发生 OP 代码中的错误是因为它正在循环“l1”。 'l1' 的每个元素都是一个 'data.frame'。 所以，我们可以用它来进行子集化。 或者，我们应该遍历 'l1' 的序列并通过索引对 'l1' 进行子集化，或者直接传递 'l1' 并创建列。