如何批量修改数据框中多个因子的水平并删除指定水平

核心解决方案 #

先确保加载dplyr和forcats包（处理因子的核心工具）：

library(dplyr)
library(forcats)

场景1：精确映射旧水平到新水平，同时删除指定水平 #

针对你16个水平转7个的需求，先构建命名向量形式的水平映射，直接把要删除的旧水平映射为NA即可：

# 示例映射：替换16个旧水平为7个新水平，同时将"旧水平X"转为NA（删除该水平）
level_mapping <- c(
  "新水平1" = "旧水平1",
  "新水平1" = "旧水平2", # 多个旧水平可合并到同一个新水平
  "新水平2" = "旧水平3",
  # ... 补充剩余的映射规则，直到覆盖所有16个旧水平
  NA = "要删除的旧水平" # 直接指定要删除的水平
)

然后用across批量处理所有因子变量：

df_new <- df_old %>%
  mutate(across(where(is.factor), ~ fct_recode(., !!!level_mapping))) %>%
  # 移除映射后未使用的因子水平（可选，让因子水平更干净）
  mutate(across(where(is.factor), fct_drop))

场景2：合并多个旧水平到新水平（更适合多转少的场景） #

如果你的16个水平是按组合并为7个，用fct_collapse更直观，不需要重复写同一个新水平的映射：

# 示例：按组合并旧水平，同时指定要删除的水平
collapse_mapping <- list(
  "新水平1" = c("旧水平1", "旧水平2", "旧水平3"),
  "新水平2" = c("旧水平4", "旧水平5"),
  # ... 补充剩下的5个新水平的分组规则
  NA = c("要删除的旧水平A", "要删除的旧水平B") # 可批量删除多个水平
)

df_new <- df_old %>%
  mutate(across(where(is.factor), ~ fct_collapse(., !!!collapse_mapping))) %>%
  mutate(across(where(is.factor), fct_drop))

针对你的可复现示例的修正代码 #

你提供的示例有语法错误，以下是可运行的修正版本：

library(dplyr)
library(forcats)

df <- data.frame(
  var1 = factor(c("A", "B", "C")),
  var2 = factor(c("A", "B", "C")),
  var3 = factor(c("A", "B", "C"))
)

# 映射规则：A→R，B→E，C直接转为NA（删除该水平）
level_mapping <- c(
  "R" = "A",
  "E" = "B",
  NA = "C"
)

df_new <- df %>%
  mutate(across(where(is.factor), ~ fct_recode(., !!!level_mapping))) %>%
  mutate(across(where(is.factor), fct_drop))

# 查看结果
print(df_new)
#   var1 var2 var3
# 1    R    R    R
# 2    E    E    E
# 3 <NA> <NA> <NA>

# 查看处理后的因子水平（已移除C）
sapply(df_new, levels)
# $var1
# [1] "E" "R"
# $var2
# [1] "E" "R"
# $var3
# [1] "E" "R"

关键说明 #

• !!!level_mapping是将命名向量拆分为fct_recode/fct_collapse的参数，确保映射规则正确传递
• where(is.factor)精准筛选所有因子变量，避免误改其他类型数据
• fct_drop用于清理映射后未被使用的因子水平，让因子结构更简洁

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