This is R-code for ExData Project 1, plot 2