ggplot code added for hours of fun