Update plot2.R

Delete setwd