R中如何对dataframe各列逐列执行if/else数值替换操作

方法1：dplyr 批量操作（无循环，推荐） #

这个方案适合所有列的替换规则一致的场景，代码简洁易维护：

# 加载依赖包
library(dplyr)
# 1. 定义替换映射规则，根据你的实际需求修改4个值对应的替换结果
recode_rule <- c(
  "1" = -2.68347,
  "2" = -2.503847,
  "3" = 替换值3, # 替换为你实际需要的数值
  "4" = 替换值4  # 替换为你实际需要的数值
)
# 2. 对所有列执行批量替换，生成新数据框
df_new <- df %>%
  mutate(across(
    .cols = everything(), # 选择所有列，若仅需rmet开头的列可替换为starts_with("rmet_")
    .fns = ~recode(as.character(.), !!!recode_rule)
  ))

方法2：基础R 循环实现 #

如果你习惯用循环逻辑，可以用以下基础R代码实现：

# 1. 定义原值和替换值的对应关系
old_value <- c(1, 2, 3, 4)
new_value <- c(-2.68347, -2.503847, 替换值3, 替换值4)
# 2. 逐列遍历执行替换
for (i in seq_along(df)) {
  df[[i]] <- new_value[match(df[[i]], old_value)]
}

注意事项 #

• 执行替换前务必先备份原始数据：df_raw <- df，避免操作失误丢失原始数据
• 如果存在非1-4的异常值，上述代码会返回NA，你可以额外加逻辑处理异常值，例如在替换后加%>% replace(is.na(.), 0)将异常值替换为0
• 如果不同列的替换规则不同，可以单独定义每列的映射表，按列名匹配后执行替换即可

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