Update plot2.R

add work dir