Update p2_plot2.R