Create plot1.R

R code for plot1 of Exploratory Data Analysis Peer Assessment 1