我如何根据特定月份的值对动物园对象进行子集化[重复]答案

【问题标题】：How do i subset a zoo object based on values for a particular month [duplicate]我如何根据特定月份的值对动物园对象进行子集化[重复]
【发布时间】：2016-01-31 17:11:43
【问题描述】：

My zoo object 我想创建一个仅包含 12 月流量值的值子集（这些是排放值）。

谢谢！

【问题讨论】：

请勿以图片形式发布您的数据，请学习如何提供reproducible example

标签： r zoo

【解决方案1】：

我们可以从index 和format 中提取“月份”，通过与“Dec”比较得到一个逻辑索引，并使用它来子集zoo 对象。

z1[format(index(z1), '%b')=='Dec']
#1938-12-03 1938-12-10 1938-12-17 1938-12-24 1938-12-31 
#    49         50         51         52         53

如果我们转换为xts 对象，也可以使用xts 包中的.indexmon。 .indexmon 从 0 开始，所以 12 月是 11。

library(xts)
z1[.indexmon(as.xts(z1))==11]

cmets 的其他选项是在 index 上使用 grep 来获取数字索引和子集（来自 @Pierre Lafortune）

 z1[grep("-12-",index(z1))]

或使用subset/month 选项（来自@G. Grothendieck）

 subset(z1, months(time(z1)) == "December")

数据

library(zoo)
z1 <- zoo(1:100, order.by = seq(as.Date('1938-01-01'), 
              length.out=100, by = '1 week'))

【讨论】：

替代方案？ z1[grep("-12-",index(z1))]
谢谢大家解决了问题:)
另一种方式：subset(z1, months(time(z1)) == "December")