使用ggplot2时无法添加Date层

Question

library(ggplot2)
p <- qplot(date, unemploy, data = economics, geom = "line", xlab = "",
           ylab = "No. of unemployed(1000s)")
presidential <- presidential[-(1 : 3), ]
p + geom_vline(aes(xintercept = start) , data = presidential)

我想做上面的情节。但是我收到了一个错误，

Error in Ops.Date((x - from[1]), diff(from)) 

在Hadley Wickham的书ggplot2中，上面的代码没问题。我也看过像我这样的问题。一种解决方案是使用数字形式的日期，但如果我使用数字形式，则x轴将是数字数字而不是日期。任何人都可以帮我弄清楚如何解决这个问题？谢谢！