Geom_vline() с датой дает ошибку: Дискретное значение, подаваемое в непрерывную шкалу

После получения сообщений Error: Discrete value supplied to continuous scale с ggplot и geom_vline() я сделал несколько экспериментов и нашел следующее удивление.

Здесь воспроизводимый пример, который начинается с некоторых данных:

require(lubridate)
require(ggplot2)
df <- data.frame(
  date=dmy(c("2/6/2014", "3/6/2014", "4/6/2014", "5/6/2014")),
  value=1:4
)

Позвольте построить это с вертикальной линией через "3/6/2014":

ggplot(data=df, aes(x=date, y=value)) + 
  geom_line() +
  geom_vline(xintercept = as.numeric(dmy("3/6/2014")), linetype=4)

Однако, если мы изменим порядок геометров:

ggplot(data=df, aes(x=date, y=value)) + 
  geom_vline(xintercept = as.numeric(dmy("3/6/2014")), linetype=4) +
  geom_line()

появляется следующее сообщение об ошибке:

Error: Discrete value supplied to continuous scale

Ответ 1