r - 从 R 中的当前日期获取下个季度的开始

Question

我试图从当前日期开始下个季度。

library(lubridate)
current_date = Sys.Date()
quarter(Sys.Date(), with_year= TRUE) 

或来自函数 quarters.Date(Sys.Date())我可以得到四分之一。我无法在上面的代码中添加四分之一。

我可以使用任何其他包或默认包中的任何其他功能来执行此操作吗？

Answer 1

1) 动物园转换为 "yearqtr"类(class)，加上 1/4，如果你想在季度末的日期申请 as.Date使用 frac = 1

library(zoo)

today <- Sys.Date()  # 2016-01-27
as.Date(as.yearqtr(today) + 1/4, frac = 1)
## [1] "2016-06-30"

省略 frac=1如果你想要本季度的开始。省略 as.Date如果你想要 "yearqtr"目的:

as.yearqtr(today) + 1/4
[1] "2016 Q2"

2) R基 .这将给出下一个没有包裹的季度的开始日期。我们使用 cut要获取当前季度的开始，请转换为 "Date"上课并增加足够的天数以进入下一个季度并申请 cut和 as.Date再次:

as.Date(cut(as.Date(cut(today, "quarter")) + 100, "quarter"))
## [1] "2016-04-01"

如果您希望本季度末添加足够天数以到达下一个季度的第二个季度并减去 1 天以到达上一个季度末:

as.Date(cut(as.Date(cut(today, "quarter")) + 200, "quarter")) - 1
## [1] "2016-06-30"