create plot1.R