Update plot4.R

add workdir