3

我的时间序列数据看起来像 2012 年 8 月 18 日晚上 11:18:00 的 6 个月，我如何每月对它们进行子集化并在一个月内为变量取平均值？（使用 R）

太感谢了

4

2 回答 2

2

你可以使用xts包。首先，我生成您的数据。在这里，我创建了一个 6 个月、半天的数据。长数据

dat <- data.frame(date = as.POSIXct('8/18/2012 11:18:00',
                                    format='%m/%d/%Y %H:%M:%S') + 
                         seq(0,by = 60*60*12,length.out=365),
                  value = rnorm(365))

然后我创建一个xts对象

library(xts)
dat.xts <- xts(x= dat$value,order.by = dat$date)

最后，我使用方便的功能apply.monthly来lapply获得类似的东西：

apply.monthly(dat.xts,mean)
2012-08-31 23:18:00  0.03415933
2012-09-30 23:18:00  0.02884122
2012-10-31 22:18:00 -0.27767240
2012-11-30 22:18:00 -0.15614567
2012-12-31 22:18:00 -0.02595911
2013-01-31 22:18:00 -0.23284335
2013-02-16 10:18:00  0.14537790
于 2013-03-14T16:51:20.777 回答
1

您可以format使用日期和计算平均值aggregate（感谢@agstudy 提供示例数据）：

aggregate(value~format(date,"%Y-%m"),dat,FUN=mean)
  format(date, "%Y-%m")       value
1               2012-08 -0.31409786
2               2012-09 -0.37585310
3               2012-10 -0.04552703
4               2012-11 -0.05726177
5               2012-12  0.04822608
6               2013-01  0.03412790
7               2013-02 -0.10157931
于 2013-03-14T16:57:20.407 回答