r - 使用 R 将每日数据转换为每周/每月数据

Question

我有各种产品的每日价格系列；我想转换为包含每周或每月数据的新数据框。

我第一次使用 xts 是为了应用 to.weekly 函数……它只适用于 OHLC 格式。
我确信可能存在类似于 to.weekly 的函数，但对于格式不是 OHLC 的数据帧。
已经有与此相关的不同帖子如下:
Does rollapply() allow an array of results from call to function?
或 Averaging daily data into weekly data
我最终使用了:

length(bra)

[1] 2416

test<-bra[seq(1,2416,7),]

会有更有效的方法吗？
谢谢。

Answer 1

让我们试试这个数据:

library(zoo)
tt <- seq(Sys.Date(), by='day', length=365)
vals <- data.frame(A=runif(365), B=rnorm(365), C=1:365)
z <- zoo(vals, tt)

现在我定义了一个提取年份和星期数的函数(如果不需要区分年份，则删除 %Y):

week <- function(x)format(x, '%Y.%W')

您可以使用此函数聚合 zoo具有平均值的对象(例如):

aggregate(z, by=week, FUN=mean)

产生这个结果:

                A           B  C
2013.18 0.3455357  0.34129269  3
2013.19 0.4506297  0.57665133  9
2013.20 0.3950585  0.46197173 16
2013.21 0.5990886 -0.02689994 23
2013.22 0.5115043  0.18726564 30
2013.23 0.5327597  0.16250339 37