R语言中缺失值与ifelse条件判断异常问题求助

你的代码中，当列存在NA时，col4 == 8会返回NA，多个逻辑值相加只要包含NA，结果就会变成NA，最终ifelse会返回NA，而非预期的0。以下是两种可行的解决方法：

方法一：用rowSums忽略缺失值计算满足条件的数量 #

library(dplyr)

df <- data.frame(
  col1 = rep(2, 10),
  col2 = rep(4, 10),
  col3 = rep(6, 10),
  col4 = c(NA, rep(8, 9))
)

df <- df %>%
  mutate(
    index = ifelse(
      rowSums(cbind(col1 == 2, col2 == 4, col3 == 6, col4 == 8), na.rm = TRUE) >= 3,
      0,
      1
    )
  )

cbind将四个条件转换为逻辑矩阵，rowSums的na.rm=TRUE参数会忽略NA，将缺失值对应的条件视为"不满足"（不计入总和），这样第一行的满足条件数量为3，会返回预期的0。

方法二：用replace_na将NA转为FALSE后再判断 #

library(dplyr)
library(tidyr)

df <- data.frame(
  col1 = rep(2, 10),
  col2 = rep(4, 10),
  col3 = rep(6, 10),
  col4 = c(NA, rep(8, 9))
)

df <- df %>%
  mutate(
    cond1 = col1 == 2,
    cond2 = col2 == 4,
    cond3 = col3 == 6,
    cond4 = col4 == 8,
    across(starts_with("cond"), ~ replace_na(.x, FALSE)),
    index = ifelse(cond1 + cond2 + cond3 + cond4 >=3, 0, 1)
  ) %>%
  select(-cond1, -cond2, -cond3, -cond4)

先单独定义每个条件，再用replace_na把NA替换为FALSE（即认为缺失值不满足对应条件），之后相加判断即可避免NA干扰。

如果你的需求是将缺失值视为"满足条件"，只需把replace_na(.x, FALSE)改为replace_na(.x, TRUE)即可。

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