Updated plot1.R