ggplot вертикальная линия с осью даты

У меня проблемы с добавлением вертикальной линии к графику, когда ось x представляет собой объект datetime ( POSIXct ). Это кажется, всегда хочет поставить линию в Эпоху. Вот пример:

df <- data.frame(x=ymd('2011-01-01')+hours(0:24), y=runif(25))
ggplot(df, aes(x=x,y=y)) + geom_point()

Теперь я пытаюсь добавить линию в третье время наблюдения:

ggplot(df, aes(x=x,y=y)) + geom_point() + geom_vline(aes(x=df$x[3]))

Что-то я делаю не так?