使用 ggplot2 绘制 ets() 拟合模型

Using ggplot2 to plot ets() fitted model

我正在尝试对一个简单的时间序列数据集进行指数平滑并绘制拟合模型和预测模型,代码如下:

cmc
[1] 100 104 108 111 120 120 127 130 142 138 170 177 180 200 230 235 247
[18] 260 263 270 330 350 400 450 500

plot(predict(ets(cmc), n.ahead = 5))

现在,我需要使用 ggplot2 使情节看起来更好。那么,我的具体问题是如何将 ETS 模型传递给 ggplot2 来绘制它?

使用自动绘图代替绘图。它是 ggplot2 包中的一个函数。

autoplot(predict(ets(cmc), n.ahead = 5))