andy debugged ggplot code a little