将geom_vline添加到自动绘图预测

Question

我正在尝试为预测添加一条垂直线。 说我有以下

library(fpp2)
data(insurance)
autoplot(insurance)+
geom_vline(aes(xintercept = "2004-07")) #problem line

如何使geom_vlinee()与autoplot()放置在一起？

Answer 1

您需要使xintercept与图的x轴具有相同的类型。 在这种情况下，保险是一个时间序列，因此您可以找出日期的存储方式

time(insurance)
          Jan      Feb      Mar      Apr      May      Jun      Jul
2002 2002.000 2002.083 2002.167 2002.250 2002.333 2002.417 2002.500
2003 2003.000 2003.083 2003.167 2003.250 2003.333 2003.417 2003.500
2004 2004.000 2004.083 2004.167 2004.250 2004.333 2004.417 2004.500
2005 2005.000 2005.083 2005.167 2005.250                           

所以我们需要一年加上一个月的分数

autoplot(insurance)+
   geom_vline(xintercept = 2004 + (07 - 1) / 12)