Update ggplot.r