R中mutate调用year函数提示需提供origin报错的解决方法

• lubridate::year()的作用是从已有的日期/时间类对象中提取年份分量，不支持直接将4位年份数值转换为日期或年份字段。
• 当你向year()传入数值型的USER_Year（值为2021、2022这类年份整数）时，函数会默认尝试将数值按「距离时间原点的时间差」规则转换为POSIXlt时间对象，而R中数值转时间必须明确指定基准原点（origin），因此直接抛出'origin' must be supplied错误。
• 额外说明：leaflet图例出现年份千分位逗号的核心原因是USER_Year为数值型字段，渲染图例时自动套用了数值千分位格式化规则，本质不需要强制转日期类型也能解决。

根据实际需求二选一即可：

方案1：快速解决图例千分位问题（无时间计算需求首选） #

直接将年份转为字符型，绕开数值格式化规则，代码最简洁：

library(tidyverse)
df <- df %>% mutate(Year = as.character(USER_Year))

转换后字段传入leaflet做图例映射时，不会再自动添加千分位逗号。

方案2：需要生成标准日期类型字段（有后续时间计算需求时使用） #

不要误用year()做类型转换，使用专门的日期构造函数生成标准日期：

library(tidyverse)
library(lubridate)

df <- df %>% 
  mutate(
    # 用年、月、日拼接生成标准Date类型字段，无对应月/日值时可默认填1月1日
    Year_date = make_date(year = USER_Year, month = 1, day = 1),
    # 若需要纯年份数值，原USER_Year字段本身就是正确值，无需额外转换
    Year = USER_Year
  )

如果不想加载lubridate，也可以用base R的方法拼接日期：

df <- df %>% 
  mutate(Year_date = as.Date(paste(USER_Year, "01", "01", sep = "-")))

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