从第三季度开始，如何将时间序列中的季度数据转换为年度数据？

Question

我试图首先将我的 CSV（excel）数据转换为时间序列，该时间序列分为几个季度，但从第 3 季度开始。然后，我尝试将数据聚合为每年，如下所示：

model_Tesla = ts(tesla_model$sales, start=c(2017,3), frequency=4)

tesla_annual=aggregate(model_Tesla, FUN=sum, nfrequency=1)

但是，当我运行它时，它的值年度数据全部错误。另外，它说新的 ts tesla_annual 于 2017.5 开始，于 2020.5 结束，但事实并非如此。它实际上于 2021 年第四季度结束。我该如何修复它？任何帮助将不胜感激。

Answer 1

如果您出于特定原因不需要 ts，您可能会发现包 {lubridate} 很有用。它提供了许多方便的包装器用于时间和日期操作。对于您的情况，以下代码可能会有所帮助：

library(lubridate)

df %>% 
mutate(quarters = seq(from = ymd('2017/3/1'), 
                      to = ymd('2021/12/31'),
                      by = 'quarters')

## ymd is for year/month/day; try dmy etc.