R语言如何按条件循环替换数据框指定列值并转换为因子类型

你原来的单列处理逻辑可以通过循环遍历目标列索引快速复用到多列，以下是两种可直接运行的实现方式：

方法1：基础R for循环实现（完全匹配你原有代码逻辑） #

循环的核心是用支持变量传入的列索引取数方式[[替代你原来硬编码列名的$写法，逐列完成替换和类型转换：

# 先定义值映射规则，减少重复条件判断代码
value_map <- c("1" = "a", "2" = "b", "3" = "c", "4" = "d")

# 遍历第10-12列的索引
for (i in 10:12) {
  # 按映射替换当前列的值
  df2[[i]] <- value_map[as.character(df2[[i]])]
  # 转换为因子类型，和你原有单列处理的逻辑一致
  df2[[i]] <- as.factor(df2[[i]])
}

如果你更习惯原来逐行判断相等的写法，也可以在循环里保留你的原有逻辑：

for (i in 10:12) {
  cur_col <- df2[[i]]
  cur_col[cur_col == 1] <- "a"
  cur_col[cur_col == 2] <- "b"
  cur_col[cur_col == 3] <- "c"
  cur_col[cur_col == 4] <- "d"
  df2[[i]] <- as.factor(cur_col)
}

方法2：dplyr 批量处理写法（无需手写循环，代码更简洁） #

如果平时用tidyverse生态处理数据，可以直接用across函数一次性选中目标列完成处理：

library(dplyr)

# 定义映射规则
value_map <- c("1" = "a", "2" = "b", "3" = "c", "4" = "d")

df2 <- df2 %>%
  mutate(across(
    .cols = 10:12, # 指定要处理的列范围，也可以写列名向量
    .fns = ~ factor(value_map[as.character(.x)])
  ))

注意：如果目标列中存在1-4以外的取值，上述代码会将对应位置赋值为NA，如需保留非1-4的原值，可以补充对应的映射规则即可。

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