forecast包autoplot设置showgap=FALSE无法消除历史与预测值间隔问题

问题原因 #

showgap参数仅在forecast包的基础绘图方法plot.forecast中实现了对应功能，autoplot.forecast的官方文档虽然标注了该参数的作用，但对应源码中没有添加该参数的处理逻辑，属于文档与功能不匹配的实现问题，因此传入该参数不会生效。

解决方法 #

手动在历史观测值的末尾和预测值的开头之间添加连接线段，即可消除间隔，实现和showgap=FALSE完全一致的效果，示例代码如下：

library(forecast)
library(ggplot2)

# 原始测试代码
d <- ts(rnorm(36), start = c(2021, 1), frequency = 12)
fc <- snaive(d, h = 12)

# 生成基础预测图
p <- autoplot(fc)
# 提取历史最后一个点、预测第一个点的时间和数值
last_obs_time <- time(tail(d, 1))
last_obs_val <- as.numeric(tail(d, 1))
first_fc_time <- time(fc$mean[1])
first_fc_val <- as.numeric(fc$mean[1])

# 添加连接线段消除间隔
p + annotate("segment",
             x = last_obs_time, xend = first_fc_time,
             y = last_obs_val, yend = first_fc_val,
             color = "black", linewidth = 0.5)

如果需要同时消除预测区间的间隔，可使用如下完整代码：

# 提取预测区间首行数据
first_fc_lower <- fc$lower[1]
first_fc_upper <- fc$upper[1]
# 补充预测区间的连接部分
p + annotate("ribbon",
             x = c(last_obs_time, first_fc_time),
             ymin = c(last_obs_val, first_fc_lower),
             ymax = c(last_obs_val, first_fc_upper),
             fill = "gray", alpha = 0.2) +
  annotate("segment",
           x = last_obs_time, xend = first_fc_time,
           y = last_obs_val, yend = first_fc_val,
           color = "black", linewidth = 0.5)

内容的提问来源于stack exchange，提问作者MLEN