时间序列按季度加总

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我有一个每日的汇率收益率数据，我已经设置成一个时间序列，我的目标是让每一季度的数据加总，得到单个季度的收益率数据。
已有时间序列如下：
> head(cdr_xts)
                   [,1]
2010-01-04 -0.006468614
2010-01-05  0.002576387
2010-01-06  0.004052406
2010-01-07  0.001200528
2010-01-08 -0.004810785
2010-01-11  0.012460225


然后我想让每一季度加总，比如2010-01-04到2010-03-31的数据加总得到一个数据，并且该数据对应时间2010-03-31，最终得到一个新的周期为季度的时间数列或数据框。

我用了如下代码：
> by <- unique(timeLastDayInQuarter(time(cdr_xts)))
> cqr <- aggregate(cdr_xts, by, mean)


但是报错：
> cqr <- aggregate(cdr_xts, by, mean)
Error in aggregate.zoo(cdr_xts, by, mean) :
  length(time(x)) == length(by[[1]]) is not TRUE


求大神帮忙解决，感激不尽！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：时间序列 Head 一季度 收益率 数据框

Error in aggregate.zoo(cdr_xts, by, mean) :
length(time(x)) == length(by[[1]]) is not TRUE
已经给了你答案
应该是unique（）之后by的长度和cdr_xts的长度不一致了

另一种方法，供参考

library(lubridate)
by1 <- year(time(cdr_xts))
by2 <- quarters(time(cdr_xts))
by <- paste0(by1,by2)
cqr <- aggregate(cdr_xts, by, mean)

龙熏风 发表于 2020-5-13 00:20
Error in aggregate.zoo(cdr_xts, by, mean) :
length(time(x)) == length(by[[1]]) is not TRUE
已经给了 ...

完美解决了我的问题！真的太强了！感激感激！

龙熏风 发表于 2020-5-13 00:20
Error in aggregate.zoo(cdr_xts, by, mean) :
length(time(x)) == length(by[[1]]) is not TRUE
已经给了 ...

能不能再麻烦您简单解释一下这段代码的逻辑！感激不尽！

康乐村小白 发表于 2020-5-13 01:47
能不能再麻烦您简单解释一下这段代码的逻辑！感激不尽！

把每个元素的年份和季度提取出来，作为aggregate（）的依据
你可以看看aggregate的帮助文件

龙熏风 发表于 2020-5-13 08:30
把每个元素的年份和季度提取出来，作为aggregate（）的依据
你可以看看aggregate的帮助文件

好的，感谢！