Create plot1.r