plot2 R code