如何将数据框列与列表中的多个数据框合并？

Question

我有一个数据框df1，有三列叫做x，y和z

df1
x y z
8 2 8
9 3 1
1 7 2

我还有一个包含30个数据帧df2，df3，... df31的列表，每个数据帧有三列a，b和c。

list1
df2        df3        ...      df31
a b c      a b c               a b c 
4 7 5      4 8 6               3 1 7 
9 5 3      3 1 9               4 8 6
8 6 1      2 9 1               1 6 3

我想将df1的y列与列表中的每个数据帧合并为一个新列。 所以新列表应如下所示：

list2
df2          df3          ...      df31
a b c y      a b c y               a b c y 
4 7 5 2      4 8 6 2               3 1 7 2 
9 5 3 3      3 1 9 3               4 8 6 3
8 6 1 7      2 9 1 7               1 6 3 7

我一直在使用以下代码：

list2 <- mapply("cbind", list1, df1$y, SIMPLIFY = FALSE)

但是，这似乎只取y的第一个值并将其放入新列：

list2
df2          df3          ...      df31
a b c y      a b c y               a b c y 
4 7 5 2      4 8 6 2               3 1 7 2 
9 5 3 2      3 1 9 2               4 8 6 2
8 6 1 2      2 9 1 2               1 6 3 2

这似乎是一个简单的问题，我只是坚持它，所以我会感激任何帮助。 谢谢！

Answer 1

因为我们需要'y'列作为一个整体，它可以包装在一个list 。 否则，它将循环遍历列的每个元素（也可能会有警告，因为长度不匹配）

Map(cbind, list1, y = list(df1$y))

要么

mapply(cbind, list1, y = list(df1$y), SIMPLIFY = FALSE)

---

此外，这可以通过lapply轻松lapply

lapply(list1, transform, y = df1$y)