R_从zoo对象中提取特定日期的数据

嗨，我有一个动物园时间序列（间隔1分钟）包含多个雨量计一个月的降雨量数据，看起来像

head(precApr)
                    RG.1 RG.2 RG..4 RG.5 RG.6 RG.7 RG.8 RG.9 RG.10 RG.12 RG.13
2008-04-06 00:00:00    0    0     0    0    0    0    0    0     0     0     0
2008-04-06 00:01:00    0    0     0    0    0    0    0    0     0     0     0
2008-04-06 00:02:00    0    0     0    0    0    0    0    0     0     0     0
2008-04-06 00:03:00    0    0     0    0    0    0    0    0     0     0     0
2008-04-06 00:04:00    0    0     0    0    0    0    0    0     0     0     0
2008-04-06 00:05:00    0    0     0    0    0    0    0    0     0     0     0
                    RG.14 RG.15 RG.16 RG.17 RG.18
2008-04-06 00:00:00     0     0     0     0     0
2008-04-06 00:01:00     0     0     0     0     0
2008-04-06 00:02:00     0     0     0     0     0
2008-04-06 00:03:00     0     0     0     0     0
2008-04-06 00:04:00     0     0     0     0     0
2008-04-06 00:05:00     0     0     0     0     0

现在我想提取一个特定日期的数据，比如说25。我使用

xts:：.indexDate

precAprxts=as.xts(precApr)
precApr25=precAprxts[.indexDate(25)]

但这只是给出了下面的答案，而我预计那天会有一个时间序列

  precApr25
  ## RG.1 RG.2 RG..4 RG.5 RG.6 RG.7 RG.8 RG.9 RG.10 RG.12 RG.13 RG.14 RG.15
  ## RG.16 RG.17 RG.18

---

有人知道我的代码有什么问题吗？或者有其他方法可以解决吗？提前感谢。

如果

z

是一个动物园系列（如问题中所述），那么订阅和

窗口

都应该可以使用。在第二个和第三个示例中，我们假设索引为

POSIXct

类：

 z[4, ] # fourth row

 window(z, as.POSIXct("2008-04-06 00:03:00"))

 window(z, as.POSIXct("2008-04-06")) # assumes time is 00:00:00

添加了也可以用时间下标：

 z[as.POSIXct("2008-04-06 00:00:00"), ]

 z[as.POSIXct("2008-04-06 00:00:00")] # same

---

有关更多信息，请参见

？window.zoo

。

非常感谢。以前从未使用过

窗口，我认为这比我想做的更直接。