Create Project1_plot1.R