plot2.R

plot2 done