Question

我有一个xts对象，每天都有分钟价格，如下所示。我想聚合这些时间序列，所以我有一个rowname等于时间hh：mm：ss（没有日，月，年）的表，以及我想要计算的每个统计数据的多列。

                    ESH4.Open ESH4.High ESH4.Low ESH4.Close ESH4.Volume
2014-03-05 18:00:00   1873.75   1874.00  1873.50    1873.50         452
2014-03-05 18:01:00   1873.50   1873.75  1873.25    1873.50         453
2014-03-05 18:02:00   1873.25   1873.50  1873.25    1873.25          61
2014-03-05 18:03:00   1873.50   1873.50  1873.25    1873.25          21
2014-03-05 18:04:00   1873.50   1873.50  1873.00    1873.25         456
2014-03-05 18:05:00   1873.00   1873.25  1872.25    1872.25        1004
2014-03-05 18:06:00   1872.50   1872.75  1872.25    1872.75          98
2014-03-05 18:07:00   1872.50   1872.75  1872.25    1872.50         361
2014-03-05 18:08:00   1872.25   1872.25  1871.75    1871.75         476
2014-03-05 18:09:00   1871.75   1872.25  1871.75    1872.25         177

需要ESH4.Close列：

          stat1 stat2 stat3
18:01:00  ...
18:02:00  ... 
18:03:00  ...

Answer 1

可以使用aggregate功能完成此操作。请注意，xts未定义aggregate方法，因此将调度aggregate.zoo。

# create some sample data
set.seed(21)
i <- Sys.time()+seq_len(60*24*30)*60
x <- xts(rnorm(length(i)),i)
# call aggregate.zoo
z <- aggregate(x, format(index(x),"%H:%M"), function(d) c(mean(d),sd(d)))
# note that 'z' is a zoo object, not xts
head(z)                   
# 00:00 21422 12673.5
# 00:01 21423 12673.5
# 00:02 21424 12673.5
# 00:03 21425 12673.5
# 00:04 21426 12673.5
# 00:05 21427 12673.5

按时间聚合xts对象

1 个答案: