R ggplot：从时间序列图中消除空日期范围？

Question

在底部的图像上，我有一个由以下代码生成的图形：

library(lubridate)
shangPM$date <- with(shangPM, ymd_h(paste(year, month, day, hour, sep= ' ')))

ggplot(data = shangPM, aes(x = date, y = PM_US.Post)) + 
geom_line() 

但是，我的x轴上显示了四年，但没有数据，这使得图表看起来很奇怪。我尝试使用xlim和coord_cartesian，但这似乎不适用于我的日期变量（也许我错了吗？） 这里有点菜鸟-有人可以帮我放大仅显示我的绘图数据的日期吗？

这是我的错误：

Error in as.POSIXct.numeric(value) : 'origin' must be supplied