在 R 中移動 plot 行

Question

我試圖疊加預測圖和實際驗證值。 我得到以下 plot

我想移動紅色 plot 與淺藍色 plot 重疊。

try1 = ts(validation_noSnoT, frequency = 7)
ses <- ets(ts(train_noSnoT, frequency = 7), model = "ANA")
ses.pred <- predict(ses, h = length(try1),level = 0)
ses.pred
plot(ses.pred)
lines(ses.pred$fitted, lwd = 2, col = "blue")
lines(try1,lwd = 2, col = "red")

有人可以幫忙嗎？

Answer 1

所以我做了以下並且它有效：

x_range =  seq(19057.14,by=1/7,length.out=length(noSnoT))
plot(predictions,main="Test")
lines(predictions$fitted, lwd = 2, col = "blue")
lines(x_range[(limit+1):length(value)],validation_value, col ="red")

我所做的是在我的訓練數據結束的地方開始。 所以我不得不手動檢查這個值並將其插入 seq() function。因為我的頻率是每周一次by所以被設置為 1/7。 limit只是floor(train_per * length(noSnoT))其中train_per是整個數據集的訓練數據百分比