Regression plot for an slr fit with lm using ggplot2