Create plot_3.R