Update plot3.R

add workdir