edited plot1.R