Create plot1.R

Code to create plot1 for assignment 1 of Exploratory Data Analysis