如何将日期和频率的数据框架转换为季度?R

Question

我有2016-2019年的数据这是我的数据样本

print(myData)
Date      Freq
2016-08-08  14
2016-08-09  20  
2016-08-10  34  
2016-08-11  32
2016-08-12  19
2016-08-15  35
2016-08-16  32

我想创建一个折线图，但我希望看到这样的东西，这样我就可以每季度看到趋势。

Date   Freq
2016 Q1   300
2016 Q2   313
2016 Q3   313
2016 Q4   432
2017 Q1   313
2017 Q2   131

如何在R中执行此操作？

Answer 1

我们可以从zoo使用as.yearqtr

library(zoo)
myData %>%
mutate(Date = as.yearqtr(Date))

如果列还不是Date类，则首先转换为Date类

myData <- myData %>%
mutate(Date = as.yearqtr(as.Date(Date)))

Answer 2

lubridate有一个函数quarter:

quarter(myData$Date)

所以对于你的数据，你可以简单地写：

myData <- myData %>% mutate(quarter = quarter(Date)