plot1.R and plot1.png completed