add loess_central and spread to control adding loess lines, tracked down nasty ggplot bug to get p$mapping$y to work properly (needed to change env to a new environment() rather than parent.frame()