Update p2_plot4.R