Bell shape smooth curve with ggplot in R

Question

I need to make a ggplot with a bell-shape line which fit the points better. The curve in the plot below is simply produced by geom_smooth(se = FALSE,colour = \'black\',siz