plot1

complete plot1.R and plot1.png