resubmit with ggplot instead