Create Project1_plot4.R