简化R语言中嵌套ifelse()实现年龄分箱转组中值的代码

通用自动计算方案（无需硬编码分箱值） #

直接拆分分箱字符串提取上下限，自动计算组中值，后续分箱规则调整也不用修改代码，适配所有规则区间型分箱。

Tidyverse 实现 #

library(tidyverse)
dataMet_F <- dataMet_F %>%
  mutate(Age_bx = map_dbl(str_split(AgeBinned, "-"), ~ mean(as.numeric(.x))))

纯Base R 实现（无需加载第三方包） #

dataMet_F$Age_bx <- sapply(strsplit(dataMet_F$AgeBinned, "-"), function(x) mean(as.numeric(x)))

硬编码替代嵌套ifelse方案（仅需固定匹配规则时使用） #

如果需要明确写死匹配规则，用dplyr::case_when替代多层嵌套ifelse，可读性更高：

library(dplyr)
dataMet_F <- dataMet_F %>%
  mutate(Age_bx = case_when(
    AgeBinned == "20-29" ~ 25,
    AgeBinned == "30-39" ~ 35,
    AgeBinned == "40-49" ~ 45,
    AgeBinned == "50-59" ~ 55,
    AgeBinned == "60-69" ~ 65,
    AgeBinned == "70-79" ~ 75,
    TRUE ~ NA_real_
  ))

因子重编码方案（适合AgeBinned为因子类型的场景） #

如果你的分箱列本身是有序因子，可以直接修改因子水平后转数值：

levels(dataMet_F$AgeBinned) <- c("20-29" = 25, "30-39" = 35, "40-49" = 45, "50-59" = 55, "60-69" = 65, "70-79" = 75)
dataMet_F$Age_bx <- as.numeric(as.character(dataMet_F$AgeBinned))

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