Add plot2.R

add plot2.R