R语言 时间序列生成直方图错误

大家好，我是R新手，在学习机器学习这本书，仿照第一章想做一个数据的直方图

数据如下

其中wed_date已经转换成日期格式（ship_date不知为什么总是转换不了）
那我就尝试用wed_date来做X轴，生成一个直方图

 quick.hist <- ggplot(album, aes(x = wed_day)) +
  geom_histogram() + 
  scale_x_date(date_breaks = "1 year", date_labels = "%Y")

ggsave(plot = quick.hist,
       filename = file.path("images", "quick_hist_album.pdf"),
       height = 6,
       width = 8)

代码执行没问题，可是生成出来的PDF不对，横轴没有出现坐标，按照理想情况应该是2014，2015，2016
现在出来的数据统计都在x轴0值上，还有些乱七八糟的线

还请指点哪里出问题了，谢谢

http://bbs.pinggu.org/thread-2120344-1-1.html