强制as.Date(as.yearqtr())的季度结束日期

Question

来自as.yearqtr包的zoo ()似乎使用了本季度的开头：

library(zoo)
x <- "2015-05-17"
x <- as.Date(x)
x <- as.Date(as.yearqtr(x))
x

# [1] "2015-04-01"

我怎么才能抓住季末呢？

x

# [1] "2015-06-30"

谢谢!

Answer 1

如图所示，使用frac = 1：

x <- as.Date("2015-05-17")
as.Date( as.yearqtr(x), frac = 1 )

给予：

[1] "2015-06-30"

Answer 2

library(zoo)

x <- as.Date("2015-05-17")
x <- as.Date(as.yearqtr(x)+0.25)-1

x
# [1] "2015-06-30"

as.yearqtr(x)+0.25给你下一个季度。as.Date给你下个季度的第一天。-1交付了最初季度的最后一天。