R语言中ifelse()函数Else分支未执行的问题排查

问题出在这两点 #

• 类型不匹配：你的age_options是数值型（数据里存的是-99这类数字），但代码里拿它和字符串'-66'、'-99'比，跨类型的比较永远不成立，所以这两个分支根本不会触发。
• 类型强制转换：ifelse会自动统一返回值类型，你最后分支返回的是数值型的age，而前面分支返回的是字符型字符串，R会把字符强制转成数值，结果就是非预期的NA或者错误值——哪怕你写死'age'，也会因为类型冲突被转成NA。

修正后的代码 #

用case_when替代嵌套ifelse，逻辑更直观：

library(dplyr)

df = structure(list(age = c(NA, NA, 38, 33, 35, 44, 33, 26, 51, 42), 
                    age_options = c(-99, -99, NA, NA, NA, NA, NA, NA, NA, NA)), 
               row.names = c(NA, -10L), class = c("tbl_df", "tbl", "data.frame"))

new_df = df %>%
  mutate(age_group = case_when(
    age %in% 0:35 ~ '0 to 35 years',
    age_options == -66 ~ 'Prefer not to answer',
    age_options == -99 ~ 'Missing',
    TRUE ~ as.character(age)  # 把数值转成字符，保证所有返回值类型一致
  ))

为什么这样改？ #

• 把age_options的比较对象换成数值-66、-99，和变量本身类型匹配，条件才能正常触发。
• 最后分支用as.character(age)把数值型的age转成字符型，确保所有返回结果都是字符类型，避免R自动做类型转换导致的错误。
• case_when按顺序判断条件，哪个先满足就用哪个结果，比多层嵌套的ifelse好读太多。

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