Create Week1_Assignment_all_plots.R