R语言dataframe指定列条件替换后按行求和的简洁实现方法

核心处理逻辑：先选中X4、X5、X6三列，将三列中所有大于6的数值统一替换为7，再对处理后的三列按行计算总和即可，以下是两种常用简洁写法：

原生Base R写法（无需安装额外包） #

不修改原始列值、直接计算总分的代码如下：

# 指定要处理的列
target_cols <- c("X4", "X5", "X6")
# 按规则计算总分
dat$total <- rowSums(
  replace(dat[, target_cols], dat[, target_cols] > 6, 7),
  na.rm = TRUE
)

如果你的三列数据全为整数，大于6的整数最小为7，可以用更短的pmin()写法做截断，效果完全一致：

dat$total <- rowSums(pmin(dat[, target_cols], 7), na.rm = TRUE)

dplyr写法（适配tidyverse数据处理流） #

日常用tidyverse生态处理数据可以直接用以下写法：

library(dplyr)
dat <- dat %>%
  mutate(
    total = rowSums(
      across(c(X4, X5, X6), ~ifelse(.x > 6, 7, .x)),
      na.rm = TRUE
    )
  )

结果验证 #

代入提供的示例数据，计算得到的total列结果为：

• 第一行：1+2+3=6
• 第二行：5+6+3=14
• 第三行：7（原8替换）+4+3=14
  完全匹配规则要求。

提示：代码中na.rm = TRUE参数会自动跳过三列中的NA值计算总分，如果需要遇到NA就返回NA，删掉该参数即可。

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