plot1.R modified to create only plot1 now.