Create plot_2.R