ggplot(lt1,aes(time,count)) +
  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))

数据集：

图：