Update ggplot2 code