Update plot1.r