update to ggplot scripts