r - 无法在 R 中正确生成按季度的日期序列

Question

我想从给定日期(2015 年 7 月 31 日)开始按季度生成一系列日期。我没有得到四月的最后一天，而是得到了五月的第一天，如下所示:

> seq(as.Date('2015-07-31'), as.Date('2014-09-30'), by = '-3 month')
[1] "2015-07-31" "2015-05-01" "2015-01-31" "2014-10-31"

我还尝试在 by 选项中传递 -quarter，但出现以下错误:

> seq(as.Date('2015-07-31'), as.Date('2014-09-30'), by = '-quarter')
Error in seq.Date(as.Date("2015-07-31"), as.Date("2014-09-30"), by = "-quarter") : 
invalid string for 'by'

虽然我可以检查该月的日期并在日期被过度调整到错误的月份时进行相应的更正，但我想知道是否存在一个简洁的代码片段来执行上述操作？

Answer 1

一个快速解决方法是取下个月的第一天并减去一天:

seq(as.Date('2015-08-01'), as.Date('2014-10-01'), by = '-3 month') -1 

[1] "2015-07-31" "2015-04-30" "2015-01-31" "2014-10-31"