geom_smooth(method='lm',se = F,col = '#8d91aa') +
geom_bar(stat = 'identity',fill = '#EDA7A7') +
geom_text(aes(label = count), size = 3, hjust = 0.5, vjust = 5) +
labs(title = "2019年第一季度活跃时段趋势(19/01-19/03)",x = '时间',y = '人数') +
theme_grey(base_family = 'STKaiti') +
theme(plot.title = element_text(hjust = 0.5))
数据集:
图: