plot1.R added