绘制R中现有数据的平均值

Question

我想模仿的图表是：

我现在的图表是：

我会用什么样的geom来模拟第一张图表中的黑线？

我目前正在使用geom_smooth，但我知道我可能走错了路线：

p <- ggplot(df_test1, aes(time, reading))
p + geom_point(alpha = 1/4, colour = "#7F0019")+geom_smooth(colour = "black")+
  scale_x_date(breaks="month", labels=date_format("%b"))

使用geom_line会产生以下图表：