R语言case_when()函数不符合预期的行为问题咨询

case_when函数的核心规则之一是所有分支的返回值长度必须兼容。当某个分支返回长度为0的向量（比如character()）时，即使前面的条件已经匹配到了长度为1的结果（比如示例中的"a"），case_when会遵循向量回收逻辑，将最终结果的长度强制调整为0，从而得到character(0)而非预期的匹配值。

在你的实际场景中，空数据框p75的nrow(p75)为0，nrow(p75) < 1的结果是TRUE，本应触发第一个分支返回NA_character_，但第三个分支的character()（长度0）导致整个结果被强制压缩为长度0的向量，最终返回character(0)。

1. 统一返回值长度（推荐） #

将默认分支的character()替换为长度为1的字符类型值，比如符合你预期的NA_character_，或者空字符串""：

# 简化示例修正
case_when(0 < 1 ~ "a", 
          2 > 3 ~ "b",
          TRUE ~ NA_character_)
# 返回结果：[1] "a"

# 实际场景修正
case_when(nrow(p75) < 1 ~ NA_character_,
          # 其他条件分支...
          TRUE ~ NA_character_)

2. 确保所有分支长度一致（若需返回长度0结果） #

如果业务逻辑确实需要返回长度0的向量，要保证所有分支的返回值长度都为0：

case_when(0 < 1 ~ character(), 
          2 > 3 ~ character(),
          TRUE ~ character())
# 返回结果：character(0)

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