将新列分配给 R 中第二个数据框的数据框列表

Question

我有一个数据帧列表df_list和第二个数据帧df_new 。 我想第一列加a的df_new到第一数据帧mtcars1列表df_list ，第二列b的df_new进入第二个数据帧mtcars2列表df_list ，等等。

预期结果：在df_list ， mtcars1将有一个来自df_new的新列a ， mtcars2将有一个来自df_new的新列b ， mtcars3将有一个来自df_new的新列c ， mtcars4将有一个来自df_new的新列c 。

在函数或循环中执行此操作的最佳方法是什么？

library(tidyverse)
df_list <- list(mtcars, mtcars, mtcars, mtcars)
names(df_list) <- c("mtcars1", "mtcars2", "mtcars3", "mtcars4")
df_new <- mtcars[1:4] %>% rename(a = mpg, b = cyl, c = disp, d = hp)

Answer 1

这对你有用吗？

for(i in 1:4){
  df_list[[i]] = cbind(df_list[[i]], df_new[,i])}

Answer 2

使用地图：

Map(cbind, df_list, df_new)

如果我们需要保留名称，则编写自定义函数：

myCbind <- function(x, y){
  d <- cbind(x, df_new[[ y ]])
  colnames(d)[ ncol(d) ] <- y
  d
  }

Map(myCbind, df_list, colnames(df_new))

检查名称：

res <- Map(myCbind, df_list, colnames(df_new))

sapply(res, function(i) tail(colnames(i), 1))
# mtcars1 mtcars2 mtcars3 mtcars4 
#     "a"     "b"     "c"     "d"