需求
用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))
画出来的图,刻度就分开了,这里是以月为单位的。