Create plot_4.R