Create plot_1.R