1

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

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”循环中，并且将向每个数据帧添加不同的值。

任何帮助将非常感激。提前致谢！

4

1 回答 1

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[.]))
于 2019-07-15T03:08:56.517 回答