explore filter and geom_smooth with span = 1