still trying to get good graph for Paul
try to put ggplot as a function for easy reuse. Not perfected