如何在观察的时间序列上绘制拟合模型

Question

这是一个非常简单的问题,我似乎完全无法得到解决方案.我想在R中做一个观察到的时间序列的散点图,在此我想绘制拟合的模型.

所以我试着这样的:

model <- lm(x~y+z)
plot(x)
lines(fitted(model))

但这只是用线条绘制x.

谢谢

Answer 1

我想你想abline(model)在这个例子中从帮助页面:

 z <- lm(dist ~ speed, data = cars)
 plot(cars)
 abline(z) # equivalent to abline(reg = z) or
 abline(coef = coef(z))

Answer 2

x <- rnorm(100)
y <- rnorm(100)
z <- rnorm(100)

model <- lm(x~y+z)
plot(x,type="l",col="green")
lines(fitted(model),col="blue")

我尝试了这个似乎工作