如何在R语言中按条件批量替换多列指定值

针对你的需求，这里提供两种简单易上手的方法，不用重复写单列替换的代码：

方法一：基础R循环（无需额外安装包） #

先把要处理的8列列名存成一个向量，然后循环遍历每一列执行替换操作，逻辑和你写的单列替换完全一致，只是用循环减少重复代码：

# 把需要修改的列名列出来，替换成你实际的列名
target_cols <- c("col1", "col2", "col3", "col4", "col5", "col6", "col7", "col8")

# 循环处理每一列
for(col in target_cols) {
  # 注意：确保这里的data是你要修改的数据框，和你原来代码里的变量名统一
  data[[col]][data[[col]] == 4] <- 0
  data[[col]][data[[col]] == 5] <- -1
  data[[col]][data[[col]] == 6] <- -2
  data[[col]][data[[col]] == 7] <- -3
}

方法二：用dplyr包（代码更简洁） #

如果你愿意安装常用的数据处理包dplyr，可以用更简洁的写法：
首先安装并加载包：

install.packages("dplyr")
library(dplyr)

然后用across函数批量处理目标列，搭配case_when定义替换规则（清晰直观）：

target_cols <- c("col1", "col2", "col3", "col4", "col5", "col6", "col7", "col8")

data <- data %>%
  mutate(across(all_of(target_cols), ~ case_when(
    . == 4 ~ 0,
    . == 5 ~ -1,
    . == 6 ~ -2,
    . == 7 ~ -3,
    TRUE ~ .  # 保持其他值不变
  )))

或者用recode函数，先定义替换映射表，代码更短：

replace_map <- c("4" = 0, "5" = -1, "6" = -2, "7" = -3)

data <- data %>%
  mutate(across(all_of(target_cols), ~ recode(., !!!replace_map)))

注意事项 #

你原来的代码里同时出现了data和raw_data，要注意变量名统一，确保操作的是同一个数据框，避免出现错误。

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