如何在R中对数据框中的年份列分配不同的年份

years <- c(2018, 2019, 2020, 2021)

library(dplyr)

df <- df %>%
  mutate(year = case_when(
    condition1 ~ years[1],  # 根据条件1分配第一个年份
    condition2 ~ years[2],  # 根据条件2分配第二个年份
    condition3 ~ years[3],  # 根据条件3分配第三个年份
    TRUE ~ years[4]         # 其他情况分配最后一个年份
  ))

df <- df %>%
  mutate(year = case_when(
    category == "A" ~ years[1],  # 如果类别为A，则分配第一个年份
    category == "B" ~ years[2],  # 如果类别为B，则分配第二个年份
    category == "C" ~ years[3],  # 如果类别为C，则分配第三个年份
    TRUE ~ years[4]              # 其他情况分配最后一个年份
  ))