如何优雅生成每月首日、末日交替的日期向量？

针对你需要生成「每月第一天、每月最后一天」交替的日期向量需求，这里提供两种简洁的实现方式，替代重复手动拼接的写法：

方法1：基于lubridate的高效实现 #

利用lubridate的序列生成和日期回滚函数，一行完成扩展：

library(lubridate)

start <- ymd("2000/01/01")
# 生成目标月份的第一天序列（length.out控制生成的月份数，示例为12个月）
month_starts <- seq(start, by = "month", length.out = 12)
# 配对每个月初和月末，展平为目标向量
x <- c(t(cbind(month_starts, rollback(month_starts + months(1)))))

• rollback(month_starts + months(1))：将「下个月第一天」回滚为「当月最后一天」，自动处理不同月份的天数差异（如2月28/29日、31天月份等）
• t(cbind(...))：将每个月初-月末的配对转置后，用c()展平为连续的向量

方法2：Base R原生实现 #

如果不想依赖lubridate，可通过日期加减实现：

start <- as.Date("2000/01/01")
# 生成目标月份的第一天序列
month_starts <- seq(start, by = "month", length.out = 12)
# 计算每个月最后一天：下个月第一天减1天
month_ends <- seq(as.Date(paste0(year(start), "-", month(start)+1, "-01")), 
                  by = "month", length.out = 12) - 1
# 交替合并月初和月末
x <- c(rbind(month_starts, month_ends))

两种方法都支持灵活调整生成的月份数量，只需修改length.out参数即可，无需重复编写冗余代码。

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