R语言多层嵌套if-else逻辑错误排查：Moins_23_eleves变量误将NA识别为0的问题

首先，我们先拆解你当前代码的逻辑，看看为什么没有出现预期的NA值：

你的代码逻辑是：

• 当Q16a == 1时，仅基于Q16c判断：
  • 若Q16c非NA且≤22 → 1
  • 若Q16c非NA且>22 →0
  • 若Q16c是NA → NA
• 当Q16a !=1时，仅基于Q17判断：
  • 若Q17非NA且≤22 →1
  • 若Q17非NA且>22 →0
  • 若Q17是NA →NA

你的table结果显示NA数量为0，说明你的数据中没有任何一行满足以下情况：

1. Q16a ==1且Q16c是NA
2. Q16a !=1且Q17是NA
3. Q16a本身是NA（此时Q16a==1会返回NA，ifelse会输出NA）

比如你提供的示例数据中，那些Q17为NA的行，Q16a都是1且Q16c有有效值，所以代码会基于Q16c返回0，而非NA——这是符合你代码逻辑的，并非错误。

如果你觉得某些行应该返回NA，可能是你的需求逻辑和代码逻辑不一致。比如你可能希望：只要Q16c或Q17任意一个是NA，就返回NA？如果是这样，你需要调整代码逻辑。

优化后的代码（更清晰且不易出错） #

嵌套ifelse容易出错，推荐使用dplyr::case_when来编写更直观的逻辑：

Ech_final_nom_BSA <- Ech_final_nom_BSA %>%
  mutate(Moins_23_eleves = case_when(
    # Q16a=1时，用Q16c判断，NA保留
    Q16a == 1 ~ ifelse(Q16c <= 22, 1L, 0L),
    # Q16a≠1时，用Q17判断，NA保留
    Q16a != 1 ~ ifelse(Q17 <= 22, 1L, 0L),
    # 处理Q16a为NA的情况，返回NA
    TRUE ~ NA_integer_
  ))

或者更简洁的写法，先统一目标变量再判断：

Ech_final_nom_BSA <- Ech_final_nom_BSA %>%
  mutate(
    # 根据Q16a选择要判断的变量
    target = case_when(Q16a ==1 ~ Q16c, TRUE ~ Q17),
    # 基于目标变量生成结果，NA保留
    Moins_23_eleves = ifelse(!is.na(target), as.integer(target <=22), NA_integer_)
  ) %>%
  select(-target) # 可选：删除临时变量

验证NA保留逻辑 #

如果你想确认NA是否被正确保留，可以用以下代码检查数据中符合NA条件的行：

# 检查Q16a=1且Q16c为NA的行
filter(Ech_final_nom_BSA, Q16a ==1 & is.na(Q16c))

# 检查Q16a≠1且Q17为NA的行
filter(Ech_final_nom_BSA, Q16a !=1 & is.na(Q17))

如果这两个结果都是空表，说明你的数据中确实没有需要返回NA的行，table结果中NA数量为0是正常的。

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