Changed to using the aggregate function to create the data frame needed for question #3 using ggplot.