在 for 循环中为多个数据框创建新变量

Question

我有 8 个数据框，我想为每个数据框创建一个变量。我使用了一个 for 循环，我使用的代码如下所示：

year <- 2001
dflist <- list(bhps01, bhps02, bhps03, bhps04, bhps05, bhps06, bhps07, bhps08)

for (df in dflist){
df[["year"]] <- as.character(year)
assign()
year <- year + 1
}

bhps01,...,bhps08 是数据框对象，year 是字符变量。 bhps01 是 2001 年的数据框， bhps02 是 2002 年的数据框，依此类推。

每个数据对应一个年份，所以 bhps01 对应 2001 年，bhps 对应 2002 年，以此类推。所以，我想为这些数据中的每一个创建一个年份变量。因此，对于 bhps01 数据，年份变量将为“2001”，对于 bhps02 数据为“2002”，依此类推。

代码运行良好，但除了局部变量 df 之外，它没有为任何一个数据帧创建变量 year。

有人可以解释上面代码中的错误吗？或者有没有做同样事情的替代方法？

Answer 1

for 循环中的语法错误。我不完全确定你想要完成什么，但让我们试试这个

year = 2001 

A = data.frame(a = c(1, 1), b = c(2, 2))
B = data.frame(a = c(1, 1), b = c(2, 2))
L = list(A, B)

for (i in seq_along(L)) {
  L[[i]][, dim(L[[i]])[2] + 1] = as.character(rep(year,dim(L[[i]])[1]))  
  year = year + 1
}

有输出

> L
[[1]]
  a b   V3
1 1 2 2001
2 1 2 2001

[[2]]
  a b   V3
1 1 2 2002
2 1 2 2002

这就是你想要的输出，对吗？

为了将列名更改为“年份”，您可以这样做

L = lapply(L, function(x) {colnames(x)[3] = "year"; x})

Answer 2

您从列表中获取数据帧的副本，并将变量“year”添加到其中，但随后不要将其分配到任何地方，这就是它被丢弃的原因（即不存储在变量中）。这是一个修复：

year <- 2001
dflist <- list(bhps01, bhps02, bhps03, bhps04, bhps05, bhps06, bhps07, bhps08)

counter <- 0
for (df in dflist){
  counter <- counter + 1
  df[["year"]] <- as.character(year)
  dflist[[counter]] <- df
  year <- year + 1
}

如果您想要编辑原始数据框，您可以将结果分配回而不是列表中。这有点间接路线，请注意创建带有名称的 dflist 的变化。我们创建 df，然后将其分配给原始名称。例如：

year <- 2001
dflist <- list(bhps01 = bhps01, bhps02 = bhps02, bhps03 = bhps03, bhps04 = bhps04, bhps05 = bhps05, bhps06 = bhps06, bhps07 = bhps07, bhps08 = bhps08)

counter <- 0
for (df in dflist){
  counter <- counter + 1
  df[["year"]] <- as.character(year)
  dflist[[counter]] <- df
  assign(names(dflist)[counter], df)
  year <- year + 1
}