R语言case_when组合多条件实现面板数据多轮值优先覆写填充

核心错误原因 #

你之前的代码无法生效是三个核心问题导致的：

• NA判断逻辑错误：R中不能用%in% NA判断值是否为缺失，该表达式返回值永远为NA，无法触发case_when的条件匹配，必须使用is.na()函数做缺失判断。
• 误用字符串类型的"NA"：你之前的代码中赋值的是字符串"NA"，不是R原生的缺失值NA，后续无法被is.na()识别，导致后续轮次的替换逻辑完全不生效。
• 对case_when的优先级逻辑理解偏差：case_when按从上到下的顺序匹配条件，命中第一个符合的条件就返回对应值，无需拆分多次mutate操作。

正确实现代码 #

单次mutate加case_when即可实现和嵌套ifelse完全一致的效果，支持后续直接扩展更多轮次的填充逻辑：

library(dplyr)

gles_panel2 <- gles_panel2 %>%
  mutate(nwahl2013_test = case_when(
    # 最高优先级：第一轮调研数据有效时直接取值
    kp7_180 == 2 ~ 1,
    kp7_180 %in% c(1, 6) ~ 0,
    # 次优先级：第一轮缺失时用第二轮调研数据填充
    is.na(kp7_180) & kp10_2780 == 2 ~ 1,
    is.na(kp7_180) & kp10_2780 == 1 ~ 0,
    # 所有条件未命中时返回数值型缺失值，和前面返回的1/0类型保持一致
    TRUE ~ NA_real_
  ))

如果需要扩展第三轮甚至更多轮次的填充逻辑，只需在现有条件后按优先级追加对应判断即可：

gles_panel2 <- gles_panel2 %>%
  mutate(nwahl2013_test = case_when(
    # 第一轮
    kp7_180 == 2 ~ 1,
    kp7_180 %in% c(1, 6) ~ 0,
    # 第二轮
    is.na(kp7_180) & kp10_2780 == 2 ~ 1,
    is.na(kp7_180) & kp10_2780 == 1 ~ 0,
    # 第三轮：前两轮均缺失时使用
    is.na(kp7_180) & is.na(kp10_2780) & 第三轮变量名 == 2 ~ 1,
    is.na(kp7_180) & is.na(kp10_2780) & 第三轮变量名 %in% c(1,6) ~ 0,
    TRUE ~ NA_real_
  ))

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