Example code for ggplot taken somewhat from the docs