在R中每月将数据转换为季度的问题

Question

我正在处理月度数据。必须预测药品销售。 此外，数据点的数量较少。

library("readxl")
library(dplyr)
library(doBy)
library("TTR")
library(forecast)
ts_dr1
      Jan  Feb  Mar  Apr  May  Jun  Jul  Aug  Sep  Oct  Nov  Dec
2016              0    0    0    0    0    0    0    0    0    0
2017    0    0    0    0 4341 3993 3495 2478  337 

>dput(ts_dr1)
structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4417, 4135, 
    3118, 2415, 500), .Tsp = c(2016.16666666667, 2017.66666666667, 
    12), class = "ts")

但是，当我尝试将每月数据转换为季度时（因为没有一个函数的工作时间少于2个周期），它不会产生预期的结果。

> quarterly <- aggregate(ts_dr1 , nfrequency=4, mean)
> quarterly 
Time Series:
Start = 2016.16666666667 
End = 2017.41666666667 
Frequency = 4 
[1]    0.000    0.000    0.000    0.000 1472.333 3222.667      

问题领域： 1）它显示1个观察，而理想情况下，它应该是2。 2）此外，没有功能正在使用这些（auto.arima或decompose等）：＆＃34;因为周期小于2＆＃34;。任何解决方法！ 虽然，我的最终目标是使用ARIMAX。我从单变量（Arima）开始，因为这是我的第一个项目。

任何帮助都将不胜感激。