Update do_ggplot.R