Update plot1.R