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

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(list1, transform, y = df1$y)