首页 > 解决方案 > 查找时间序列问题的 acf 值的问题

问题描述

我试图在时间序列问题中找到 acf 的值。我有一个从 2003 年到 2017 年的数据集。

我正在使用以下函数创建数据的时间序列

tf = ts(df$x, start = c(2003,1), end = c(2017,12), frequency = 12)

当我试图通过使用函数绘图来查找 acf 的值时

acf(ts)

我的图表是这样的

在此处输入图像描述

在使用时间序列函数时,我无法得出“p”的值应该是多少。由于图表显示没有反转

fit = arima(tf, c(p,2,3))

作为参考,https://github.com/girijesh18/dataset/blob/master/timeSeries.csv我的数据看起来像这样

我无法弄清楚我应该为“p”使用什么值。我还尝试了介于 1 到 20 之间的“p”的不同值,但预测值不是很准确。任何帮助,将不胜感激。

标签: pythonrtime-series

解决方案


首先,我会利用您的时间序列的差异来消除它,它具有相当大的随机趋势。除了时间序列稳步上升之外,最明显的迹象是 ACF 成分需要很长时间才能消亡。虽然您可以使用漂移项将模型拟合到数据中,但当趋势不存在时,阅读 ACF 和 PACF 图要容易得多。

tf <- structure(c(58082, 48500, 45723, 53662, 46723, 45070, 49782, 55437,
57672, 61121, 43857, 49819, 50750, 53589, 53812, 53575, 52339, 51115,
56529, 61498, 58757, 72876, 55999, 58374, 63885, 63287, 60027, 65795,
62850, 61908, 68108, 72639, 77105, 84996, 65488, 62178, 74750, 66085,
59711, 69304, 68357, 67133, 74545, 73623, 82071, 89533, 72117, 69004,
72681, 80214, 80744, 81643, 87599, 86213, 97495, 97841, 104953, 110353,
90415, 83875, 93160, 89539, 85021, 91314, 87036, 83731, 91047, 94552,
105628, 94743, 84954, 72535, 77898, 68418, 60609, 73703, 67298, 64375,
73550, 76887, 77538, 92233, 73267, 77779, 80634, 72736, 81475, 87595,
87386, 88874, 95145, 96991, 95186, 106122, 81173, 77941, 88576, 86372,
77850, 91188, 90547, 87803, 95264, 90054, 100544, 96302, 82402, 78297,
91847, 86235, 87557, 91139, 93116, 93855, 94172, 100003, 97051, 86785,
84849, 81682, 88273, 85645, 80121, 92187, 96409, 97609, 94971, 111356,
102049, 110838, 97596, 88747, 100882, 97801, 99312, 100163, 112241, 101667,
122227, 127548, 123216, 131987, 112248, 118140, 128127, 114529, 151671,
135476, 148513, 141155, 142314, 142144, 139774, 142715, 124773, 111401,
129554, 140624, 128378, 130208, 141051, 132299, 145779, 152341, 146552,
150930, 139732, 133423, 154363, 148374, 137392, 149258, 160086, 154738,
159570, 164496, 166885, 188369, 144181, 148121, 169758, 158890, 159699,
161691, 165828, 175617, 181875, 182883), .Tsp = c(1, 188, 1), class = "ts")

par(mfrow=c(3, 1), mar=c(3, 3, 2, 1), mgp=c(2, 0.6, 0), oma=c(0, 0, 0, 0))
plot(tf); acf(tf, main=""); pacf(tf, main="")

图。1

在此处输入图像描述

tf.d <- diff(tf)
plot(tf.d); acf(tf.d, main=""); pacf(tf.d, main="")

图2

在此处输入图像描述

现在我们可以开始解释这些图了,从 ACF 开始。我们可以看到滞后 1 处的相关性是负的,这经常发生在我们取一个序列的差异时,被称为“过度差异”。从具有与过去数据点过度相似的数据点的系列,现在它们与过去数据点过度不同,增加了周期 1 的波动。从图中我们可以看到水平大约在 -0.3,而可能不足以引起问题,值得牢记。传统智慧还告诉我们,在 1 滞后后像这样死亡的 ACF 应该配备 MA(1) 系数,我的经验是最好从 AR 系数开始,因为它们可能会使 MA 系数变得多余。但相反的情况也可以,
查看 PACF 图,我们在滞后 1 和 2 处看到两个重要分量,这表明是 AR(2) 模型。
进一步观察 ACF 和 PACF 图,我们看到了类似波浪的特征和滞后 12 处的正峰值,这告诉我这是每月或每两小时的数据,并且我们有季节性成分。找出季节性成分与找出非季节性成分并没有太大区别,我们将仅根据季节性/周期性滞后而不是样本滞后来描述相关性。

tf.d12 <- ts(tf.d, f=12)
plot(tf.d12); acf(tf.d12, main="", lag.max=12*4); pacf(tf.d12, main="", lag.max=12*4)

图3

在此处输入图像描述

查看 ACF 图,我们看到滞后 1、2、3、4... 周期的强分量,有点让人想起第一个 ACF 图,这意味着我们有一个一阶季节性差异分量,但我们不会再次转换数据,而是在现在已成为 SARIMA 模型的情况下将 D 设置为 1。如开头所述,非平稳性会掩盖 ACF 图中 MA 过程的迹象,因此我们必须等待,看看是否需要。
在 PACF 图中,我们可以在 1、2 甚至 3 个周期滞后处确定重要分量,但本着简约的精神,我们假设 SAR(2) 就足够了。

现在下一步是拟合所有模型并评估残差的 ACF 和 PACF。如果我们在选择候选模型方面很聪明,那么这里不应该太多。对数据的性质一无所知,这三个人或多或少是随意选择的。

ari1 <- arima(tf.d12, order=c(2, 0, 0), seasonal=c(2, 1, 0))
ari2 <- arima(tf.d12, order=c(1, 0, 1), seasonal=c(2, 1, 0))
ari3 <- arima(tf.d12, order=c(1, 0, 1), seasonal=c(2, 1, 1))

par(mfcol=c(3, 2), mar=c(3, 3, 2, 1), mgp=c(2, 0.6, 0), oma=c(0, 0, 1.5, 0))
acf(residuals(ari1), main="", ylim=c(-0.2, 1), lag.max=12*4)
mtext(ari1$call, 3, cex=0.8)
acf(residuals(ari2), main="", ylim=c(-0.2, 1), lag.max=12*4)
mtext(ari2$call, 3, cex=0.8)
acf(residuals(ari3), main="", ylim=c(-0.2, 1), lag.max=12*4)
mtext(ari3$call, 3, cex=0.8)
pacf(residuals(ari1), main="", ylim=c(-0.2, 0.44), lag.max=12*4)
mtext(ari1$call, 3, cex=0.8)
pacf(residuals(ari2), main="", ylim=c(-0.2, 0.44), lag.max=12*4)
mtext(ari2$call, 3, cex=0.8)
pacf(residuals(ari3), main="", ylim=c(-0.2, 0.44), lag.max=12*4)
mtext(ari3$call, 3, cex=0.8)
mtext("residual values", 3, outer=TRUE, cex=1.3)

图4

在此处输入图像描述

像这样的图、关于数据的经验和理论知识、信息标准(如 AICc)和验证(如 CV)的应用,将引导您找到合适的模型。盲目相信auto.arima()是不好的。

一些进一步的说明:

par(mfrow=c(1, 1), mar=c(3, 3, 2, 1), mgp=c(2, 0.6, 0), oma=c(0, 0, 0, 0))
plot(stl(tf.d12, "periodic"))

图5

在此处输入图像描述

如果我们分解tf.d12,我们会看到数据中存在轻微的趋势。向模型添加非季节性差异可能是合适的:

arima(tf.d12, order=c(2, 1, 1), seasonal=c(2, 1, 1))

分解还揭示了其余部分看起来像时间分量,幅度似乎随时间增加。我们的模型不处理这个问题。

tsoutliers::locate.outliers指示索引 145 处的一个加性异常值和 71 和 149 处的几个时间变化。

抱歉有点啰嗦,我开始研究数据,停不下来。最后,这整件事可能更适合Cross Validated,那里也有很多知识渊博的人可以提供第二意见。


推荐阅读