How to extract f(x)=kx+d of a regression line made with ggplot.smooth()? [duplicate]