Create fig1_plot.R