R语言忽略NA值的多列值条件拼接实现方法

代码报错的核心原因是grepl()函数传入NA值作为匹配对象时，返回值为NA而非逻辑值TRUE/FALSE。嵌套ifelse的第一层判断在处理id=1这类两个子分类列均为NA的行时，判断条件返回NA，ifelse无法处理NA类型的判断输入，进而触发mutate执行错误，你猜测的NA未被忽略是正确的。

使用dplyr内置的case_when函数实现该需求，既避免了嵌套ifelse的可读性问题，也不会触发NA判断异常，代码如下：

library(dplyr)
df3 <- df %>%
  mutate(Diag_combined = case_when(
    Diag_main == "CBS" & Diag_subgroup_CBS == "0" ~ "Type1",
    Diag_main == "CBS" & Diag_subgroup_CBS == "1" ~ "Type2",
    Diag_main == "PPA" & Diag_subgroup_PPA == "0" ~ "PPA-A",
    Diag_main == "PPA" & Diag_subgroup_PPA == "1" ~ "PPA-B",
    TRUE ~ Diag_main
  ))

该实现逻辑完全匹配需求：仅当主诊断为对应类型时才校验子分类取值，其余诊断直接返回主诊断原值，执行效率高于嵌套ifelse+grepl的写法，代码可读性也更强。

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