scale_x_date(name = ..., breaks = ..., labels = ..., limits = ...)
scale_x_date(name="x轴名称",breaks=date_breaks("1 month"),labels=date_format("%Y-%m"),limits=as.Date(c("2014-01-01","2018-01-01")))