R语言如何生成从指定日期起始的每月最后一天日期序列

错误原因 #

原生seq.Date函数使用by = "month"步进时，逻辑为直接对月份字段加1，若目标月份不存在对应日期（如2月无31日、4月无31日），会自动向后顺延，因此直接调用seq()无法得到正确的每月最后一天序列。

解决方案 #

方案1：基础R实现（无需额外依赖） #

通过生成对应月份的第一天，再回退1天得到当月最后一天，代码如下：

# 自定义参数
start_date <- as.Date("2018-01-31")
len <- 6 # 生成序列长度

# 生成序列
month_seq <- seq(as.Date(format(start_date, "%Y-%m-01")), by = "month", length.out = len)
res <- as.Date(sapply(month_seq, function(x) {
  first_day_next <- seq(x, by = "month", length.out = 2)[2]
  first_day_next - 1
}))

方案2：lubridate包实现（代码更简洁） #

借助lubridate包的日期处理函数快速实现：

# 加载包（未安装先执行install.packages("lubridate")）
library(lubridate)

start_date <- as.Date("2018-01-31")
len <- 6

# 生成包含起始日的每月最后一天序列
res <- purrr::map_dbl(0:(len-1), ~ start_date %m+% months(.x)) %>% as.Date()
# 或使用rollback函数实现：
res <- c(start_date, rollback(seq(start_date %m+% months(1), by = "month", length.out = len-1)))

输出验证 #

两种方案运行后得到的res结果均符合预期：

[1] "2018-01-31" "2018-02-28" "2018-03-31" "2018-04-30" "2018-05-31" "2018-06-30"

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