Update plot2.R

Code