update R code for plot2
update R code for plot3
update picture for plot2
update picture for plot3