我在单词" shopping"上绘制搜索量的时间序列图。这是在2004年1月到2014年12月期间延长时间。然而,我的x轴上的日期显示了我的数据的所有月份,它重叠,看起来很混乱。我怎样才能将其转换为仅显示的年份?
这是我的代码:
ggplot(data=mergeddata, aes(x=Date, y=ShoppingDeseason, group=1)) +
geom_line(colour="red", size=1) + xlab("Date [Year]") +
ylab("ShoppingDeseason [SearchVolume]") +
ggtitle("Search Volume on Shopping from 2004 to 2014") +
theme(axis.text.x=element_text(size=20,angle=90, face="bold"),
axis.text.y=element_text(size=20, face="bold"),
axis.title=element_text(size=22,face="bold"))
答案 0 :(得分:1)
尝试使用scale_x_date()
:
# Generate Random data
mergeddata <- data.frame(Date = seq(as.Date('2004-01-01'),as.Date('2014-12-31'),by = "month"),
ShoppingDeseason = sample(20, 132, replace=TRUE))
ggplot(data=mergeddata, aes(x=Date, y=ShoppingDeseason, group=1)) +
geom_line(colour="red", size=1) + xlab("Date [Year]") +
ylab("ShoppingDeseason [SearchVolume]") +
ggtitle("Search Volume on Shopping from 2004 to 2014") +
theme(axis.text.x=element_text(size=20,angle=90, face="bold"),
axis.text.y=element_text(size=20, face="bold"),
axis.title=element_text(size=22,face="bold")) +
scale_x_date(labels = date_format("%Y"), breaks = date_breaks("year"))