Update plot4.R

Delete setwd