Create plot1.r

hello