r - 应用apply.quarterly()后设置每个季度的第一个月为索引

Question

apply.quarterly() 只给出每个季度的结束月份作为索引，看下面的例子:

library(quantmod)
getSymbols.FRED("CPILFESL")
apply.quarterly(CPILFESL,mean)

        CPILFESL
1957-03-01  28.60000
1957-06-01  28.83333
1957-09-01  29.03333
1957-12-01  29.26667
1958-03-01  29.40000
1958-06-01  29.53333
...

我真正想要的是:

        CPILFESL
1957-01-01  28.60000
1957-04-01  28.83333
1957-07-01  29.03333
1957-10-01  29.26667
1958-01-01  29.40000
1958-04-01  29.53333
...

那么如何在应用apply.quarterly()后将每个季度的第一个月设置为索引呢？

谢谢

Answer 1

如 x是 apply.quarterly 的结果然后:

time(x) <- as.Date(as.yearqtr(time(x)))

as.yearqtr来自 quantmod 包所依赖的 zoo 包，因此它应该已经加载。