plot_1.R