linear_regression_plots.r

require(ggplot2)
require(reshape2)

mtcars2 = melt(mtcars, id.vars='mpg')

ggplot(mtcars2) +
  geom_jitter(aes(value,mpg, colour=variable),) + geom_smooth(aes(value,mpg, colour=variable), method=lm, se=FALSE) +
  facet_wrap(~variable, scales="free_x") +
  labs(x = "Percentage cover (%)", y = "Number of individuals (N)")
  
# useful links:
# http://stackoverflow.com/questions/25752909/multiple-ggplot-linear-regression-lines