如何在R中根据行内是否存在NA重新编码新变量？

错误原因分析 #

你当前的case_when代码逻辑有误：

• 错误写法中is.na(df$X1| df$X2| df$X3)是先对X1、X2、X3执行逻辑或运算，再判断运算结果是否为NA，这和你需要的“判断X1-X4任意一列是否存在NA”完全不符。
• 另外你还遗漏了对X4列的判断，不符合需求中“X1至X4”的范围。

正确解决方案 #

方案1：修正case_when逻辑 #

直接对每一列单独判断是否为NA，再用逻辑或连接，同时补上X4的判断：

library(dplyr)

df$X0 <- case_when(
  is.na(df$X1) | is.na(df$X2) | is.na(df$X3) | is.na(df$X4) ~ 1,
  TRUE ~ NA_real_  # 所有不满足上述条件的情况设为NA
)

方案2：用rowSums简化判断 #

通过计算每行NA的数量，判断是否大于0，写法更简洁：

df$X0 <- ifelse(rowSums(is.na(df[, c("X1", "X2", "X3", "X4")])) > 0, 1, NA)

方案3：用apply逐行判断 #

利用apply函数逐行检查是否存在NA：

df$X0 <- apply(df[, c("X1", "X2", "X3", "X4")], 1, function(x) if(any(is.na(x))) 1 else NA)

验证结果 #

运行上述任意代码后，df的X0列结果应为：

[1]  1  1 NA  1 NA NA

对应每行的NA情况：

• 第1行X3为NA → X0=1
• 第2行X1为NA → X0=1
• 第3行X1-X4无NA → X0=NA
• 第4行X2为NA → X0=1
• 第5行X1-X4无NA → X0=NA
• 第6行X1-X4无NA → X0=NA

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