ggplot(data,aes(x.plot, y.plot)) + stat_summary(fun.data=mean_cl_normal) + geom_smooth(method='lm', formula= y~x)