Update p2_plot1.R