在R图上绘制预测线

我有一个时间序列数据：

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")

---

有人能告诉我我做错了什么吗？

你在

x.lm中把“Vol”大写了，你在
x.lm中把“Vol”大写了。我纠正了这个问题。abline（x.pre，col=“red”）命令不起作用是的，我可以执行abline（x.lm，col=“red”），但我希望能够提前预测。你知道怎么做吗？更新以处理特定的预测。我仍然得到这个错误：int_abline中的错误（a=a，b=b，h=h，v=v，untf=untf，…）：无效的a=，b=specification你是否将输出分配给了x.pre？x、 我纠正了这个问题。abline（x.pre，col=“red”）命令不起作用是的，我可以执行abline（x.lm，col=“red”），但我希望能够提前预测。你知道怎么做吗？更新以处理特定的预测。我仍然得到这个错误：int_abline中的错误（a=a，b=b，h=h，v=v，untf=untf，…）：无效的a=，b=specification你是否将输出分配给了x.pre？x、 我建议您仔细阅读
？abline
，并将其与
？行进行比较，然后思考您对
abline
的调用是否有任何意义，给定文档。我建议您仔细阅读
？abline
，并将其与
行
进行比较，并考虑在给定文档的情况下，您对
abline
的调用是否有意义。
Error in int_abline(a = a, b = b, h = h, v = v, untf = untf, ...) : 
  invalid a=, b= specification

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

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

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