plot1.r