在R中如何将字符归类为新分组，if else语句不生效怎么解决

错误原因 #

• R中判断元素是否属于集合的运算符为%in%，不存在in关键字，你的原始代码存在语法错误
• 基础if/else结构仅支持单个逻辑值判断，直接传入整列向量只会取第一个元素的判断结果执行，无法实现逐行分组的需求
• 你的测试数据中region列取值为大写A~Z，原始判断条件中写的小写a/b/c会出现匹配失效的问题

解决方案 #

方案1：基础R嵌套ifelse实现 #

ifelse是向量化运算函数，可直接对整列逐行判断：

test_data <- data.frame(region=LETTERS)
test_data$region_new <- ifelse(
  test_data$region %in% c('A','B','C'), 
  'Level_A',
  ifelse(
    test_data$region %in% c('D','X','Z'), 
    'Level_B', 
    'Level_Other'
  )
)

方案2：dplyr包case_when实现（多分支场景更易读） #

多分支判断时用case_when逻辑更清晰，避免多层嵌套：

library(dplyr)
test_data <- test_data %>%
  mutate(region_new = case_when(
    region %in% c('A','B','C') ~ 'Level_A',
    region %in% c('D','X','Z') ~ 'Level_B',
    TRUE ~ 'Level_Other'
  ))

方案3：映射表左连实现（适合分组规则多、需频繁调整的场景） #

如果分组规则较多，可单独维护映射表，后续调整规则无需修改判断逻辑：

# 新建分组映射表
mapping <- data.frame(
  region = c('A','B','C','D','X','Z'),
  region_new = c(rep('Level_A',3), rep('Level_B',3))
)
# 左连匹配分组
test_data <- merge(test_data, mapping, by = 'region', all.x = TRUE)
# 未匹配到的取值统一替换为其他分组
test_data$region_new[is.na(test_data$region_new)] <- 'Level_Other'

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