如何实现：当行内任意变量为NA时，行求和结果返回NA？

有几种简单的方法可以实现你的需求：

方法1：使用rowSums函数（推荐） #

这是最简洁高效的方式，rowSums默认遇到NA就返回NA，直接指定要计算的列即可：

# 假设你的数据集名为df
df$var_total <- rowSums(df[, c("var1", "var2", "var3", "var4")])
# 也可以明确指定na.rm=FALSE（默认就是这个值，写出来更清晰）
df$var_total <- rowSums(df[, c("var1", "var2", "var3", "var4")], na.rm = FALSE)

方法2：结合apply和ifelse实现 #

如果你想使用ifelse，可以用apply逐行检查是否存在NA，再决定计算总和还是返回NA：

df$var_total <- apply(df[, c("var1", "var2", "var3", "var4")], 1, function(row) {
  ifelse(any(is.na(row)), NA, sum(row))
})

方法3：原生加法（需确认变量类型） #

在R中，原生的加法运算默认遇到NA就会返回NA，如果你当前的加法没有得到预期结果，可能是变量类型问题（比如因子未正确转换为数值）。可以用with函数确保在数据框环境中计算：

df$var_total <- with(df, var1 + var2 + var3 + var4)

验证示例 #

用你的测试数据验证：

# 构造测试数据集
df <- data.frame(
  var1 = c(1, 1, 1),
  var2 = c(0, NA, 0),
  var3 = c(0, 2, 0),
  var4 = c(0, 0, NA)
)

# 使用rowSums计算
df$var_total <- rowSums(df[, c("var1", "var2", "var3", "var4")])

得到的结果如下，完全符合你的期望：

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