Would like to add statistic summary after the graph output

[DambrosiCode]

Currently, the best fit line is fitted with geom_smooth(). This uses lowess and predict to generate a smooth curve. The best fit curve should be generated outside of ggplot, and then fitted with geom_line(), then summary stats can be output