从每周数据中获取每月时间序列

Question

我检查了几个关于时间序列聚合的问题，但没有找到我想要的。

我有一个zoo 对象，包含 10 年来的每周数据，并且我计算了该系列的每月滚动平均值。我想处理与此相对应的月度数据，并为此将每个月的最后一个每周数据点（作为整个月的代表）拉入一个单独的时间序列中。

我已经尝试了 aggregate ts 函数，但由于间距不均匀（即 4 周并不总是一个月等）而遇到了麻烦。

Answer 1

月份长度不同的事实应该没有问题。看下面的例子：

> library(xts)
> dates  <- as.Date("2013-01-01") + 7*(0:52)
> y.week <- zoo(rnorm(365),order.by=dates)
> head(y.week)
2013-01-01 2013-01-08 2013-01-15 2013-01-22 2013-01-29 2013-02-05 
 0.3648757 -0.7247121  0.4815929  0.5967042  1.6272563  0.8472303 
> y.mon  <- aggregate(y.week,
+                     by = format(dates,format="%Y-%m"),
+                     FUN=sum)
> head(y.mon)
   2013-01    2013-02    2013-03    2013-04    2013-05    2013-06 
 2.3457170  1.9640368 -0.3259688 -0.8710992  0.5430847 -0.1107915 

查看strptime 的帮助页面以查看您可以使用的格式字符串 代替上面的"%Y-%m"。