add plot2

add plot2 R script and PNG file