如何更优雅地从年度变量生成日历年的起止日期？

我需要从1991至2001的calendar_year变量生成对应日历年的起止日期，目前已通过lubridate和dplyr实现了可行方案，但希望得到更优雅的实现方式。

原实现代码：

library(lubridate)
library(dplyr)
df <- tibble(calendar_year = seq(1991, 2001, 1)) 

df |>
  mutate(
    calendar_year_start_date = ymd("1991-01-01") + 
      years(calendar_year - 1991),
    calendar_year_end_date = ymd("1991-12-31") + 
      years(calendar_year - 1991 )
  )

执行结果：

# A tibble: 11 × 3
   calendar_year calendar_year_start_date calendar_year_end_date
           <dbl> <date>                   <date>                
 1          1991 1991-01-01               1991-12-31            
 2          1992 1992-01-01               1992-12-31            
 3          1993 1993-01-01               1993-12-31            
 4          1994 1994-01-01               1994-12-31            
 5          1995 1995-01-01               1995-12-31            
 6          1996 1996-01-01               1996-12-31            
 7          1997 1997-01-01               1997-12-31            
 8          1998 1998-01-01               1998-12-31            
 9          1999 1999-01-01               1999-12-31            
10          2000 2000-01-01               2000-12-31            
11          2001 2001-01-01               2001-12-31   

下面提供几种更简洁、语义更清晰的实现方式：

方法1：字符串拼接转日期 #

直接通过年份拼接固定的月日字符串，再转成日期类型，逻辑直观且代码更短：

df |>
  mutate(
    calendar_year_start_date = ymd(paste0(calendar_year, "-01-01")),
    calendar_year_end_date = ymd(paste0(calendar_year, "-12-31"))
  )

方法2：使用lubridate的make_date函数 #

make_date是lubridate专门用于构造日期的函数，参数直接对应年、月、日，语义明确，可读性更强：

df |>
  mutate(
    calendar_year_start_date = make_date(calendar_year, 1, 1),
    calendar_year_end_date = make_date(calendar_year, 12, 31)
  )

方法3：通用型日期边界计算（适配任意起始时间） #

如果需要更通用的日期边界计算（比如后续需调整起始月份），可以结合floor_date和ceiling_date，避免硬编码12月31日：

df |>
  mutate(
    calendar_year_start_date = make_date(calendar_year, 1, 1),
    calendar_year_end_date = ceiling_date(calendar_year_start_date, "year") - days(1)
  )

以上三种方法都能得到和原代码完全一致的结果，且代码更简洁、逻辑更直观，避免了原方案中需要计算年份偏移的冗余步骤。

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