plot1.R produces desired plot1.png