Create plot1.r

Creates the histogram