ggplot test code mostly from Hadleys examples