如何用R语言便捷生成指定年份的所有日期序列？

你已经列出了几种生成指定年份日期序列的方法，确实这类需求有不少实现路径。关于你问的base R或常用包中的现成简便函数，可以参考以下内容：

Base R 优化写法 #

Base R没有专门的单一函数直接生成全年日期，但可以通过更简洁的写法实现，还能自动适配闰年（不用手动判断365/366天）：

# 你定义的打印辅助函数
headtail <- function(x){
  cat(as.character(head(x, 3)), "...", as.character(tail(x, 3)))
}

# 一行实现，自动处理闰年
x <- seq(as.Date(paste0(2021, "-01-01")), as.Date(paste0(2021, "-12-31")), by = "day")
headtail(x)
#> 2021-01-01 2021-01-02 2021-01-03 ... 2021-12-29 2021-12-30 2021-12-31

# 用ISOdate构造日期，写法更规整
x <- as.Date(seq(ISOdate(2021, 1, 1), ISOdate(2021, 12, 31), by = "day"))
headtail(x)
#> 2021-01-01 2021-01-02 2021-01-03 ... 2021-12-29 2021-12-30 2021-12-31

常用第三方包的简便实现 #

lubridate包（日期处理首选） #

lubridate是R中最常用的日期处理包，提供了更直观的语法，无需手动拼接日期字符串：

library(lubridate)

# 方法1：构造年初日期，再加一年减一天得到年末，生成序列
x <- seq(make_date(2021), make_date(2021) + years(1) - days(1), by = "day")
headtail(x)
#> 2021-01-01 2021-01-02 2021-01-03 ... 2021-12-29 2021-12-30 2021-12-31

# 方法2：利用yday获取全年天数，直接生成序列
x <- ymd("2021-01-01") + days(0:(yday(ymd("2021-12-31")) - 1))
headtail(x)
#> 2021-01-01 2021-01-02 2021-01-03 ... 2021-12-29 2021-12-30 2021-12-31

tidyverse生态中的写法 #

如果平时用tidyverse，可以结合tibble快速生成带日期序列的数据框：

library(tibble)
library(lubridate)

date_tbl <- tibble(date = seq(make_date(2021), make_date(2021, 12, 31), by = "day"))
headtail(date_tbl$date)
#> 2021-01-01 2021-01-02 2021-01-03 ... 2021-12-29 2021-12-30 2021-12-31

补充说明 #

你自定义的ydays函数已经非常实用，如果日常频繁需要这个功能，完全可以保留自用。如果不想自定义，上述lubridate的写法已经足够简洁直观。

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