如何批量对R语言中多个factor变量执行unclass操作？

以下是几种高效的实现方式，替代重复的逐行代码：

方法一：Base R 循环 #

先定义需要处理的变量名向量，再通过循环批量处理：

# 指定目标变量名
target_vars <- c("ati_1", "ati_2", "ati_3", "ati_4")

# 循环处理每个变量
for (var in target_vars) {
  myd[[var]] <- unclass(myd[[var]])
}

这里用[[而非$，是因为循环中变量为字符串类型，[[支持字符串索引数据框列。

方法二：Base R + lapply #

利用lapply对指定列批量应用unclass，代码更简洁：

target_vars <- c("ati_1", "ati_2", "ati_3", "ati_4")
myd[target_vars] <- lapply(myd[target_vars], unclass)

方法三：tidyverse/dplyr 实现 #

如果习惯使用dplyr，可以用mutate_at精准指定变量，或用mutate_if自动筛选factor列：

library(dplyr)

# 处理指定范围的变量
myd <- myd %>%
  mutate_at(vars(ati_1:ati_4), unclass)

# 或者匹配符合命名规则的变量（比如ati_开头+数字）
myd <- myd %>%
  mutate_at(vars(matches("^ati_\\d+$")), unclass)

# 自动处理所有factor类型的变量
myd <- myd %>%
  mutate_if(is.factor, unclass)

额外技巧：自动筛选factor列 #

如果不确定哪些列是factor，可以先筛选再处理（Base R版本）：

# 筛选所有factor类型的列
factor_cols <- sapply(myd, is.factor)
# 批量处理
myd[factor_cols] <- lapply(myd[factor_cols], unclass)

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