Create Project1_plot2.R