Update ExData_Plotting1.R

coursera exercise: R script for exercise