R从动物园对象中提取特定日期的数据

Question

您好，我有一个动物园时间序列（间隔 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

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

Answer 1

如果z 是一个动物园系列（如问题中所述），那么下标和window 应该都可以工作。在第二个和第三个示例中，我们假设索引是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 了解更多信息。