Update plot3.R

tolto path assoluto