我用下面的代码生成一个图:
ggplot(reshaped_median, aes(x= Month_Yr, y = value))+
geom_line(aes(color = Sentiments)) +
geom_point(aes(color = Sentiments)) +
labs(title = 'Change in Sentiments (in median)', x = 'Month_Yr', y = 'Proportion of Sentiments %') +
theme(axis.text.x = element_text(angle = 60, hjust = 1))
但是你可以注意到x轴上的日期标签太密集了,所以如果我想的话,它会按季度或半年(每3或6个月)显示日期。
来自Month_Yr
的值的格式为%Y-%m
。
我怎么能这么做谢谢
2条答案
按热度按时间o4tp2gmn1#
第一次转换日期:
df$Month_Yr <- as.Date(as.yearmon(df$Month_Yr))
那么用这个就可以解决问题了:
vlurs2pr2#
还有一个办法使用
scale_x_date
,您可以轻松操纵x轴上的断点。