如何在ggplot X轴上设置日期？

Question

我正在努力让x轴在ggplot上显示正确的日期值。

我已经在论坛上阅读了很多类似的问题，但是还没有解决这个问题。下面的代码是我的尝试之一。

Data used in the code below

    df <- as.data.frame(cbind(dates, prices))
    df$dates <- as.Date(df$dates, format = "%Y-%m-%d", origin = "2014-08-05")

    ggplot(df , aes(x=dates)) + 
    geom_line(aes(y=prices, colour = "prices"))