R语言中如何批量替换多个数据框中的指定值？

你的原代码无效的原因是：在R中循环遍历列表元素时，x只是原数据框的副本，修改x不会改变原始的df1、df2、df3。下面是几种可行的解决方法：

方法1：通过对象名循环修改原数据框 #

直接针对数据框的名称进行循环，用get()获取对象，修改后再用assign()存回原名称：

# 定义要处理的数据框名称
df_names <- c("df1", "df2", "df3")

for (name in df_names) {
  # 获取当前数据框
  temp_df <- get(name)
  # 修改指定列
  temp_df$y[temp_df$y == 200] <- ""
  # 将修改后的数据框存回原名称
  assign(name, temp_df)
}

方法2：用lapply处理列表后重新赋值 #

先将数据框放入列表，用lapply批量处理，再将处理后的列表元素重新赋值给原数据框：

# 创建数据框列表
df_list <- list(df1, df2, df3)

# 批量修改每个数据框的指定列
modified_list <- lapply(df_list, function(df) {
  df$y[df$y == 200] <- ""
  return(df)
})

# 一次性将修改后的数据框赋值回全局环境（高效写法）
list2env(modified_list, .GlobalEnv)

方法3：使用tidyverse的purrr包（适合tidyverse用户） #

如果习惯用tidyverse工具，可以用purrr::map批量处理，再用list2env完成赋值：

library(purrr)

df_list <- list(df1, df2, df3)
modified_list <- map(df_list, ~ {
  .x$y[.x$y == 200] <- ""
  .x
})

list2env(modified_list, .GlobalEnv)

注意事项 #

• 若原数据框的y列是数值类型，替换为空字符串""会将列转为字符类型；如果需要保持数值类型，可改为赋值NA：df$y[df$y == 200] <- NA。
• list2env会直接覆盖全局环境中同名变量，使用前确认这些变量是你需要修改的对象。

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