时间序列图范围

Question

您正在绘制一个xts对象：

我想将xlim延长至2月30日，因为我想从Arima模型中添加预测：

par(mfrow=c(1,1))
pred <- predict(try2, n.ahead = 1,se.fit=T)
lim_sup <- pred$pred + 1.96 * pred$se
lim_inf <- pred$pred - 1.96 * pred$se
plot(heat["1996-02-01 00:00/1996-02-16 04:00"],type="l",main="Cross Validation")
points(exp(pred$pred),col="blue",lwd=2)
points(exp(lim_sup),lwd=2,col="green")
points(exp(lim_inf),lwd=2,col="green")

但我看不到情节中的任何线条。你能给我一些推荐吗？

加热时间系列看起来像这样

                     HC.f
1996-02-01 00:00:00 1437.000
1996-02-01 01:00:00 1441.600
1996-02-01 02:00:00 1489.300
1996-02-01 03:00:00 1501.300
1996-02-01 04:00:00 1568.400
1996-02-01 05:00:00 1629.400

虽然预测了一小时的步骤：

pred$pred
Time Series:
Start = 3002 
End  = 3002 
Frequency = 1 
[1] 7.480588

Answer 1

在绘图之前合并您的实际和预测对象。然后，您将在整个所需的时间段内有一个时间序列。

library(xts)
set.seed(21)
x <- xts(rnorm(10),Sys.Date()-10:1)
y <- xts(rnorm(3),Sys.Date()+0:2)
z <- merge(x,y)
plot(z[,1], ylim=range(z,na.rm=TRUE))
lines(z[,2],col='red')