强制 as.Date(as.yearqtr()) 的季度结束日期
Forcing end of quarter date for as.Date(as.yearqtr())
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"
谢谢！
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 交付原季度的最后一天。
如图所示使用frac = 1：
x <- as.Date("2015-05-17")
as.Date( as.yearqtr(x), frac = 1 )
给予：
[1] "2015-06-30"
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"
谢谢！
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 交付原季度的最后一天。
如图所示使用frac = 1：
x <- as.Date("2015-05-17")
as.Date( as.yearqtr(x), frac = 1 )
给予：
[1] "2015-06-30"