finished ggplot2 part 1 lesson