Update p2_plot3.R