如何在列表中的数据框中添加一列？

Question

我有一个数据框列表。我想为每个数据框添加一个新列。比如我有如下三个数据框：

a = data.frame("Name" = c("John","Dor"))
b = data.frame("Name" = c("John2","Dor2"))
c = data.frame("Name" = c("John3","Dor3"))

然后我将它们放入一个列表中：

dfs = list(a,b,c)

然后我想为每个数据框添加一个具有唯一值的新列，例如：

dfs[1]$new_column <- 5

但我收到以下错误：

"number of items to replace is not a multiple of replacement length"

我也尝试过使用两个括号：

dfs[[1]]$new_column <- 5

这不会返回错误，但不会添加列。

这将处于“for”循环中，并且将向每个数据帧添加不同的值。

任何帮助将不胜感激。提前致谢！

Answer 1

假设您想为每个数据框添加一个值为 5:7 的新列。我们可以使用Map

new_value <- 5:7
Map(cbind, dfs, new_column = new_value)

#[[1]]
#  Name new_column
#1 John          5
#2  Dor          5

#[[2]]
#   Name new_column
#1 John2          6
#2  Dor2          6

#[[3]]
#   Name new_column
#1 John3          7
#2  Dor3          7

lapply 你可以这样做

lapply(seq_along(dfs), function(i) cbind(dfs[[i]], new_column = new_value[i]))

或者正如@camille 提到的，如果您在for 循环中使用[[ 进行索引，它就可以工作

for (i in seq_along(dfs)) {
    dfs[[i]]$new_column <- new_value[[i]]
}

---

等效的 purrr 版本是

library(purrr)
map2(dfs, new_value, cbind)

和

map(seq_along(dfs), ~cbind(dfs[[.]], new_colum = new_value[.]))