Update plot4.R

remove setwd()