linear.smooth.plot <- basic.plot + geom_smooth(method="lm", se = FALSE)
print(linear.smooth.plot)