过滤特定月份的日期列

Question

我想将每月的时间序列转换为季度的时间序列，只保留一年中的 4 个值。我在数据框中有一个日期列作为这种每月格式的整数：

192707
192708
192709
....

我已将其转换为日期格式：

library(zoo)
df$date<-as.Date(as.yearmon(as.character(df$date), format = '%Y%m'), frac=1)

接下来我想只保留一年中的 4 个月（1 月、4 月、7 月、10 月）这样的东西，但我不知道该怎么做：

df<-subset(df, month(df$date)==1 | month(df$date)==4 | 
            month(df$date)==7 | month(df$date)==10) 

有没有办法从日期列中提取月份？

Answer 1

是的，你很亲密。使用 months 函数给出日期月份的全名，然后使用 month.name 我们可以得到你想要的 4 个月：

df <- df[months(df$date) %in% month.name[c(1,4,7,10)], ]

Answer 2

另一个选项可能是使用month number i.e. 1, 4, 7, 10：

df[month(df$date) %% 3 == 1,]

在此可以避免名称比较。因此它应该很快。

注意：这里必须提一下，OP 使用了zoo 包。