R语言多条件生成code列：需替代case_when吗？

首先纠正你的误解：case_when() 完全支持多个条件判断，不需要寻找替代函数，它正是处理这类多分支逻辑的理想工具。

使用dplyr的case_when实现 #

假设你的数据集名为df，可以结合mutate()和case_when()快速生成code列：

library(dplyr)

df <- df %>%
  mutate(code = case_when(
    value >= 0.0 & value <= 0.3 ~ 1,
    value >= 0.4 & value <= 0.5 ~ 2,
    value > 50 ~ 3,
    # 处理所有未匹配上述条件的情况（比如0.3-0.4之间的值），这里赋值为NA
    TRUE ~ NA_integer_
  ))

关键说明 #

• case_when()按顺序判断条件，只要匹配到第一个符合的规则就返回对应结果，逻辑顺序合理即可
• 最后一行TRUE ~ NA_integer_是可选的，但建议加上，用来明确处理所有不符合前三个规则的value值，避免出现无定义结果
• 你的规则未覆盖0.3到0.4之间的value，这些值会被最后一个分支处理

若不想使用dplyr（base R方案） #

如果偏好base R，可以用嵌套的ifelse()，但可读性会随条件数量增加而下降：

df$code <- ifelse(df$value >= 0.0 & df$value <= 0.3, 1,
                  ifelse(df$value >= 0.4 & df$value <= 0.5, 2,
                         ifelse(df$value > 50, 3, NA)))

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