r - 如何将日期四舍五入到季度开始/结束？

Question

我需要获取一个日期向量，并为每个日期获取下一个季度的第一天。

(或者更确切地说，四舍五入到当前季度的最后一天，找到下一个季度的第一天并起飞是我的计划)
lubridate将舍入/上限为月，但不是季度

到目前为止，我找到的唯一解决方案是制作一个向量，列出从 1970 年到 2099 年的所有季度，然后搜索它以找到我日期之后的最小日期。显然，这矢量化和扩展性很差。

我需要能够指定年终月份(尽管年份总是从当月 1 日开始)

例如。

x = as.Date("2014-08-15")
RoundToQuarterStart(x, yearStarts = "March")
[1] "2014-09-01"

由于在此示例中年份从 3 月 1 日开始，因此第 3 季度从 9 月 1 日开始，这是给定日期之后的下一个季度开始。 (或等效地，此日期属于 8 月 31 日结束的第二季度)

Answer 1

zoo包可以帮助许多与日期相关的事情，包括:

library(zoo)

as.yearqtr("2014-08-15", format="%Y-%m-%d")
## [1] "2014 Q3"

as.Date(as.yearqtr("2014-08-15", format="%Y-%m-%d"))
## [1] "2014-07-01"

但是，这可能无法满足您的需求(有一些方法可以从这些值中推断出来)。
timeDate包有:

timeFirstDayInQuarter(charvec, format = "%Y-%m-%d", zone = "", FinCenter = "")
timeLastDayInQuarter(charvec, format = "%Y-%m-%d", zone = "", FinCenter = "")

这可能会更容易使用和调整以适应不同的 Q1 开始起点。