The the graph I wish to emulate is this:
The graph I have now is this:
What kind of geom would I use to emulate the black line in the first chart?
I am currently using geom_smooth but am aware I might be on the wrong track:
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"))
Using geom_line results in the following chart:
