plot 1

plot1.R and output plot1.png