Code doodles trying to pull legend information from ggplot.