Update plot_3.R