r - 在 R 图上绘制预测线

Question

我有一个时间序列数据：

x数据帧的输出：

Date  vol
1990  12
1991  13
1992  15
1994  18
1995  20
1996  35

我正在尝试绘制这些数据并预测未来 4 年，如下所示：

plot(x$Date, x$vol, col="blue")
x.lm<-lm(x$Vol ~ x$Date)
x.pre<-predict(x.lm, n.ahead=4)
abline(x.pre, col="red")

我收到此错误：

Error in int_abline(a = a, b = b, h = h, v = v, untf = untf, ...) : 
  invalid a=, b= specification

谁能告诉我我做错了什么？

Answer 1

您在 中将“Vol”大写x.lm<-lm(x$Vol ~ x$Date)。

尝试

x.lm<-lm(x$vol ~ x$Date)

此外，如果不进行一些额外的修改，您将无法像这样传递predict()into的值。abline由于您没有进行任何复杂的预测，而只是想绘制线性拟合，您可以使用

abline(x.lm, col="red")

如果您将变量分开，然后在 中使用 newdata 参数predict，您应该能够获得实际的预测。这可能是最干净的方法。例如：

y <- x$vol
x <- x$Date
x.lm <- lm(y~x)
predict(x.lm, data.frame(x=1997:2000))

这将返回 1997 - 2000 年的预测。我相信“x”中的“x”data.frame(x=1997:2000)必须与您lm()作为 x 变量输入的变量匹配。在您的情况下，它有一个美元符号访问器，这使整个事情变得更加复杂。我只是采用上面的方法，并将输入到您的lm()函数中的 x 组件重命名为可以稍后引用的有效变量名。