如何在R中按行计算平均值，单有效值行返回NA

要实现每行仅当有效非NA值数量≥2时计算均值，否则返回NA的需求，可以通过rowMeans()与rowSums()组合实现，具体步骤如下：

首先确认你的数据集：

df <- data.frame(a = c(NA, NA, 1,5),
                 b = c(NA, NA, 2, 3),
                 c = c(NA, 5, NA, 5),
                 d = c(3, NA, NA, NA))

核心实现代码 #

# 统计每行非NA值的数量
valid_num <- rowSums(!is.na(df))

# 计算均值：有效数≥2时计算，否则返回NA
df$average <- ifelse(valid_num >= 2, rowMeans(df, na.rm = TRUE), NA)

# 可选：匹配预期结果的小数格式（保留两位，或替换小数点为逗号）
df$average <- round(df$average, 2)
# 若需要将小数点替换为逗号（如预期中的4,33），改用以下代码：
# df$average <- ifelse(valid_num >= 2, format(rowMeans(df, na.rm = TRUE), decimal.mark = ",", digits = 2), NA)

运行结果 #

执行上述代码后，得到的数据集如下：

a  b  c  d average
1 NA NA NA  3      NA
2 NA NA  5 NA      NA
3  1  2 NA NA     1.5
4  5  3  5 NA     4.33

代码说明 #

• rowSums(!is.na(df))：逐行统计有效数据的数量，!is.na(df)会将非NA值转为布尔值TRUE（对应数值1），NA转为FALSE（对应数值0），求和后得到每行的有效数据个数。
• ifelse(valid_num >= 2, rowMeans(df, na.rm = TRUE), NA)：通过条件判断控制均值计算逻辑，仅当有效数≥2时，调用rowMeans(na.rm = TRUE)计算去除NA后的行均值，否则返回NA。
• round()或format()：用于调整均值的显示格式，满足你给出的预期结果样式。

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