R xts勾号数据滚动子集

我已经从来自SQL数据库的历史滴答数据创建了一个xts对象。我想创建勾号数据的子集，例如：

显示每天上午10点到下午2:30之间的滴答声。这将使我能够根据一天中的时间为特定的交易想法创建特定的数据集。我的索引格式如下：

> index(merged[3567,])
[1] "2011-08-01 13:17:59 SAST"

---

一位xts专家能告诉我如何创建这些子集吗？任何建议都将不胜感激。

您可以使用

difftime

计算从一天开始的小时数，例如：

diffs <- difftime(time(merged), as.Date(time(merged)), units="hours", tz="SAST")

---

您可以使用时间子集进行此操作：

merged["T10:00/T14:30"]

---

如果你觉得这是解决你的问题，考虑接受这个作为正确答案（通过点击绿色检查标记变成绿色）。

merged[as.POSIXlt(time(merged))$hour > 10]

merged["T10:00/T14:30"]