r - 按一天中的时间拆分 xts 对象，无论日期如何

Question

可能重复：
XTS 将函数应用于一天中的时间子集？

我对这种模式很感兴趣：每天 09:45 到 09:55 之间是否会发生一些有趣的事情[不管是今天还是其他天]。我正在使用 xts，但我找不到忽略 date的方法，只使用 time进行分析。

以下是一些代码作为示例：

times = c(as.POSIXct("2012-11-03 09:45:00 IST"),
          as.POSIXct("2012-11-04 09:45:00 IST"),
          as.POSIXct("2012-11-05 12:45:00 IST"),
          as.POSIXct("2012-11-08 09:45:01 IST"))

xts.obj = xts(c(1,2,3,4),order.by = times)

#the resulting xts object:
#2012-11-03 09:45:00    1
#2012-11-04 09:45:00    2
#2012-11-05 12:45:00    3
#2012-11-08 09:45:01    4

我的目标是能够聚合例如（09:45-09:55），无论一天。这将导致条目（1,2,4）：它们都发生在这个时间范围内[在不同的日期]

非常感谢。

Answer 1

使用时间子集：

xts.obj["T09:45/T09:55"] 
                    [,1]
2012-11-03 09:45:00    1
2012-11-04 09:45:00    2
2012-11-08 09:45:01    4