I worked on the ggplot assignment