如何用dplyr实现简洁的跨列逐行运算？

嘿，这个问题我太懂了！你肯定发现直接写max(a, b)会取整个列的最大值（不是逐行的），而用ifelse虽然能实现需求，但逻辑复杂、列数多的时候写起来巨繁琐对吧？别担心，dplyr有好几种简洁的方式解决这个问题，完美替代你说的#2写法：

1. 简单极值运算：用base R的pmax()/pmin() #

这是最简洁的方式！pmax()是base R专门用来逐行取多列最大值的函数，直接在mutate里用就行，完全不需要额外分组：

library(dplyr)
data.frame(a = c(1:5, 6:10), b = c(6:10, 1:5)) %>%
  mutate(MAX_COLUMN = pmax(a, b))

同理，逐行取最小值用pmin()，大数据集下这个方法比分组更高效。

2. 多列灵活运算：rowwise() + c_across() #

如果你的需求不止两列，或者需要选中某一类列（比如所有以col_开头的列），用rowwise()把数据按行分组，再配合c_across()选中目标列，就能轻松实现逐行运算：

# 比如有a、b、c三列，取这三列的逐行最大值
data.frame(a = 1:5, b = 6:10, c = 3:7) %>%
  rowwise() %>%
  mutate(MAX_COLUMN = max(c_across(a:c))) %>%
  ungroup() # 敲黑板：用完rowwise记得取消分组，避免后续操作出错

c_across()支持各种dplyr的列选择器，比如starts_with("val_")、ends_with("_num")，非常适合复杂的列筛选场景。

3. 复杂自定义逻辑：rowwise() + 自定义函数 #

如果运算逻辑特别复杂（比如多条件判断、多列组合计算），可以把逻辑封装成自定义函数，再用rowwise()逐行调用：

# 自定义一个逐行计算的函数：如果a大于b就返回a*2，否则返回b+5
custom_calc <- function(x, y) {
  if (x > y) {
    x * 2
  } else {
    y + 5
  }
}

# 调用函数实现逐行运算
data.frame(a = c(1:5, 6:10), b = c(6:10, 1:5)) %>%
  rowwise() %>%
  mutate(CUSTOM_RESULT = custom_calc(a, b)) %>%
  ungroup()

这种方式把复杂逻辑抽离出来，代码可读性瞬间提升，再也不用写一堆嵌套的ifelse了！

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