Create plot1.r

plotting data.