r.box.fit <- arima(r.box,order=c(1,0,0))                                   #对r.box拟合AR(1)模型
plot(r.box,type='l')                              
lines(fitted(r.box.fit),col='red')

然后我延迟一期：（原来是1:144）
plot(r.box,type='l')
lines(0:143,fitted(r.box.fit),col='red')
这次就好了，这是为什么