Update assignment1_plot1.r

Plot one assignment one Exploratory Data Analysis