modelling, plots
added ggplot req