R语言循环修改对象疑问：为何打印正常但新增列失效？

这问题其实是R里变量作用域和值传递的典型坑，不少刚接触R的朋友都踩过，我给你掰扯清楚：

核心原因：你修改的是「副本」，不是原数据框 #

不管是for循环还是lapply，你在里面操作的df都不是原数据框a/b本身，而是它们的临时副本：

• 当你写for (df in list(a, b))时，每次循环R都会把a或b的内容复制一份到df这个临时变量里。print(df)能正常输出，是因为你打印的是这个副本的内容，但你给df$y赋值的操作，只改了这个临时副本，循环结束后副本就被销毁了，原数据框a和b根本没被碰过。
• 你的lapply写法也没解决本质问题：lapply确实会在匿名函数里修改每个数据框的副本，并且把修改后的副本组成新列表返回，但你没有把这个返回值赋值给任何变量，所以原a和b还是保持原样。

解决方法：保留修改后的副本，或者直接修改原对象 #

方法1：接收lapply的返回值，重新赋值给原变量 #

这是最规范的R写法，符合函数式编程的思路：

# 用lapply生成修改后的新列表
modified_dfs <- lapply(list(a, b), function(df){
  df$y <- c(5, 6)
  df  # 一定要返回修改后的对象，不然lapply只会返回NULL
})
# 把新列表里的元素重新赋值给原变量
a <- modified_dfs[[1]]
b <- modified_dfs[[2]]

方法2：直接修改原对象（适合不想重新赋值的场景） #

如果想直接修改a和b本身，可以用get()和assign()配合循环：

# 先把数据框的名字存成字符向量
df_names <- c("a", "b")
for (name in df_names) {
  # 获取原数据框对象
  current_df <- get(name)
  # 新增列
  current_df$y <- c(5, 6)
  # 把修改后的对象存回原变量名
  assign(name, current_df)
}

或者用data.table包，它支持引用修改，不需要返回赋值：

library(data.table)
# 把普通data.frame转成data.table
a <- data.table(x = c(1, 2))
b <- data.table(x = c(3, 4))
# 直接修改原对象，不需要返回赋值
lapply(list(a, b), function(df){
  df[, y := c(5, 6)]
})

方法3：tidyverse风格的简洁写法 #

如果你用tidyverse生态，可以用purrr::map，语法更清爽：

library(purrr)
modified_dfs <- map(list(a, b), ~{
  .x$y <- c(5, 6)
  .x
})
a <- modified_dfs[[1]]
b <- modified_dfs[[2]]

总结一下 #

R默认是值传递，函数/循环里的变量是原对象的副本，修改副本不会影响原对象。要保留修改结果，要么把修改后的副本返回并重新赋值，要么使用支持引用修改的对象（比如data.table）。

内容的提问来源于stack exchange，提问作者NicolasBourbaki