ggplot() from ggplot2 in R
add a smoother on top of the points
g <- ggplot(...)
g + geom_point() + ***()
g + geom_point() + geom_smooth()