pmax/pmin函数na.rm参数失效问题求助（R语言）

错误原因 #

你的代码中pmax(a:g, na.rm=TRUE)是核心错误：a:g在R中会被解析为从变量a的数值到变量g的数值的序列，而非选择数据框的a到g列。这导致pmax接收的是单个长序列而非每行的列值，即便设置na.rm=TRUE也无法触发行级极值计算，最终引发报错。

修正方案与完整代码 #

以下是修复错误并实现范围转换的代码，同时处理了范围为0的边界情况（避免除以0的NaN错误）：

library(dplyr)

# 生成示例数据（与原代码一致）
ind <- c("A","B","C")
y <- c(2008,2012,2016,2020)
indiv <- rep(ind, times=4)
year <- rep(y, times=3)

a <- runif(n=12, min=0, max=100)
b <- runif(n=12, min=0, max=100)
c <- runif(n=12, min=0, max=100)
d <- runif(n=12, min=0, max=100)
e <- runif(n=12, min=0, max=100)
f <- runif(n=12, min=0, max=100)
g <- runif(n=12, min=0, max=100)

df_data <- data.frame(indiv,year,a,b,c,d,e,f,g)

# 修正后的范围转换代码
newdf <- df_data %>% 
  rowwise() %>% 
  mutate(Oldmax = max(c_across(a:g), na.rm=TRUE),
         Oldmin = min(c_across(a:g), na.rm=TRUE),
         Newmax = max(c_across(e:g), na.rm=TRUE),
         Newmin = min(c_across(e:g), na.rm=TRUE)) %>% 
  ungroup() %>% 
  mutate(Oldrange = Oldmax - Oldmin,
         Newrange = Newmax - Newmin,
         # 处理Oldrange为0的情况，避免除以0
         Oldrange = replace(Oldrange, Oldrange == 0, 1)) %>% 
  mutate(across(e:g,
                ~ ifelse(Oldrange == 1, Newmin, (((.x - Oldmin) * Newrange) / Oldrange) + Newmin),
                .names = "{.col}_bal")
         )

代码关键点说明 #

• rowwise()：强制后续mutate按行计算，而非默认的列级批量运算。
• c_across(a:g)：获取当前行中指定列范围的所有值，组成向量供极值函数计算。
• ungroup()：完成行计算后取消分组，避免后续操作受分组逻辑影响。
• 边界处理：当Oldrange=0时，将其替换为1并直接返回Newmin，既避免除法错误，又符合“原范围无差异时直接映射到新范围最小值”的逻辑。

行处理技术建议 #

• 优先用rowwise() + c_across()：语法清晰，支持任意列范围选择，原生适配NA处理，是dplyr生态中行级计算的标准方案。
• 避免直接用pmax/pmin传列范围：若坚持使用pmax，可改用pmax(!!!select(., a:g), na.rm=TRUE)（!!!用于解包列），但可读性远不如rowwise方案。
• 提前预判边界情况：比如全NA行、范围为0的行，用filter或条件判断提前规避错误。
• 批量列处理用across()：像原代码中对e:g列的转换，across比单独编写每个列的转换逻辑高效且易维护。

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