ExData_Plotting1 R code and Results