是否有一种简单的方法可以按照模式创建一个向量:月的第一天、月的最后一天、月的第一天等等？

Question

我正试图找到一种优雅的方法来创建一个日期向量，其模式如下：

x <- c(ymd("2000/01/01"), ymd("2000/01/31"), ymd("2000/02/01"), ymd("2000/02/28"))

...and等。

到目前为止，我一直在做这个：

library(lubridate)

start <- ymd("2000/01/01")


x <- c(start, rollback(start + month(1)), 
       start + months(1), rollback(start + months(2)),
       start + months(2), rollback(start + months(3)),
       start + months(3), rollback(start + months(4)),
       start + months(4), rollback(start + months(5)),
       start + months(5), rollback(start + months(6)),
       start + months(6), rollback(start + months(7)),
       start + months(7), rollback(start + months(8)),
       start + months(8), rollback(start + months(9)),
       start + months(9), rollback(start + months(10)),
       start + months(10), rollback(start + months(11)),
       start + months(11), rollback(start + months(12)))

任何帮助都是非常感谢的，谢谢！

Answer 1

您可以生成第一天和减去1：

first_days <- start + months(0:12) 
sort(c(head(first_days, -1), tail(first_days - 1, -1)))