Create plot1.r

first part solved