如何用单行R代码实现带零值条件的DataFrame列h计算？

Base R 单行实现 #

直接用ifelse结合rowSums完成条件判断与计算：

df$h <- ifelse(rowSums(df[, c(1, 2, 4, 6)] == 0) > 0, 0, rowSums(df[, c(1, 2, 4, 6)])/4)

逻辑说明 #

• df[, c(1, 2, 4, 6)] == 0：生成布尔矩阵，标记指定列里的0值位置
• rowSums(...) > 0：判断每行是否存在至少一个0（行内0的数量大于0即满足条件）
• ifelse(条件, 符合条件时的值, 不符合时的值)：满足条件则h设为0，否则计算指定列的行均值

dplyr 单行实现（适用于tidyverse用户） #

如果习惯用tidyverse语法，可这样写：

library(dplyr)
df <- df %>% mutate(h = ifelse(rowSums(across(c(1,2,4,6), ~ .x == 0)) > 0, 0, rowMeans(across(c(1,2,4,6)))))

你之前方法无效的原因 #

• 错误使用字符串"0"匹配数值0：你的数据里0是数值类型，字符串匹配会找不到对应值
• 列索引不匹配：代码中用了c(7, 8, 10, 18)，但需求是第1、2、4、6列
• 未结合计算逻辑：仅直接赋值0，没处理无0行的均值计算

内容的提问来源于stack exchange，提问作者Annah.Grace