如何在R的case_when函数中结合between函数实现年份转年代分类

你当前编写的代码存在语法错误，R语法不支持通过year == 年份1,年份2...的写法判断变量是否属于多个值，你需要替换成区间判断逻辑，同时完全可以在该场景下使用between函数。

方案1：使用between函数实现区间判断 #

这个方法完全匹配你的需求，不需要逐个枚举年份，between(year, 起始年, 结束年)会判断year是否属于[起始年, 结束年]的闭区间，修正后的代码如下：

library(dplyr)
wdsf <- wdsf %>%
  mutate(decades = case_when(
    year <= 1950 ~ "1950s and below",
    between(year, 1960, 1969) ~ "1960s",
    between(year, 1970, 1979) ~ "1970s",
    between(year, 1980, 1989) ~ "1980s",
    TRUE ~ "1990s and above" # 可根据需求调整1989年之后的标注规则
  ))

方案2：更简洁的取整计算方案（无需逐个写区间条件） #

如果需要覆盖的年代范围很广，还可以通过数学取整直接生成年代标签，不需要逐个设置区间条件：

library(dplyr)
wdsf <- wdsf %>%
  mutate(decades = case_when(
    year <= 1950 ~ "1950s and below",
    year >= 1990 ~ "1990s and above",
    TRUE ~ paste0(floor(year/10)*10, "s")
  ))

这个逻辑的原理是将年份除以10后向下取整，再乘以10就能得到对应年代的起始年份，拼接s后就是标准年代标签。

内容的提问来源于stack exchange，提问作者Lucia Langenheim Hernández