Update plot_1.R