Create Project1_plot3.R