Create plot1.R

create the 1st plot