Update p2_plot5.R