Update plot_4.R