modified plot1.R