R语言ggplot2可视化：自定义设置X轴上的时间间隔（以日、月、年为单位）

需求

用ggplot2简单绘制了一个散点图，x轴为时间。但是时间刻度太密集了，所以x轴是下面这样的：

因此需要修改x轴标签的密度。代码如下：

#重点是下面这句
trendsData$date <- as.Date(trendsData$date)
ggplot(data=trendsData, # Make a plot using our FOI and GDP data
       aes(x=date , # with FOI on the x-axis
           y=trends)) + # and GDP_PC on the y-axis
  geom_point(color = "blue", size = 1)  +
  scale_x_date(date_breaks = "1 months") +   ###还有这句
  labs(x = "Time", y = "google trend") +
  theme(
    axis.title = element_text(size = 20),
    axis.text = element_text(size = 16))

画出来的图，刻度就分开了，这里是以月为单位的。