additional work on ggplots