强制as.Date的季度结束日期（as.yearqtr（））

Question

来自zoo包的

as.yearqtr（）似乎使用了季度的开头：

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提供原始季度的最后一天。