如何在R中循环处理多数据框指定变量，批量修正哑变量编码？

首先需要修正你的数据框列表定义——原代码中的dfs只是字符串名称集合，我们需要将其转换为实际的数据框对象列表，才能进行遍历操作：

# 转换为实际的数据框对象列表
dfs <- mget(c("ibu_819", "ibu_1121", "ibu_1022"))
# 变量列表用向量更便于批量处理（无需用list）
vars <- c("bene_lastyear", "bene_nextyear", "child_death","citychild")

以下提供几种简洁实现方式，均无需合并数据框：

方法1：Tidyverse风格（最简洁高效） #

利用dplyr::across批量处理变量，搭配逻辑值转整数的技巧替换2为0（逻辑值TRUE转整数为1，FALSE转整数为0，刚好匹配你的需求）：

library(dplyr)
library(purrr)

# 定义单次数据框的处理逻辑
clean_vars <- function(df) {
  df %>%
    mutate(across(all_of(vars), ~ as.integer(.x != 2)))
}

# 遍历所有数据框执行清洗
processed_dfs <- map(dfs, clean_vars)

# 将处理后的数据框批量放回全局环境（覆盖原数据框）
list2env(processed_dfs, .GlobalEnv)

方法2：使用dplyr::recode（更直观） #

如果目标变量仅包含1和2两个取值，recode是语义更清晰的选择：

clean_vars <- function(df) {
  df %>%
    mutate(across(all_of(vars), ~ recode(.x, `2` = 0)))
}

# 后续步骤同方法1
processed_dfs <- map(dfs, clean_vars)
list2env(processed_dfs, .GlobalEnv)

方法3：基础R循环（无需依赖tidyverse） #

若偏好基础R语法，可直接用双层循环实现：

# 遍历每个数据框名称
for(df_name in names(dfs)) {
  current_df <- dfs[[df_name]]
  # 遍历每个目标变量进行替换
  for(var in vars) {
    current_df[[var]] <- as.integer(current_df[[var]] != 2)
  }
  # 将修改后的数据框放回全局环境
  assign(df_name, current_df, envir = .GlobalEnv)
}

• mget()是实现字符串名称到实际数据框转换的核心函数，是批量操作的基础；
• across(all_of(vars))确保我们能精准指定要处理的字符向量型变量名；
• list2env()可以批量将处理后的列表元素（数据框）放回全局环境，避免逐个手动赋值。

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