Generated codes to plot the fourth graphics
Merge github.com:benehis/ExData_R_Codes4