Update plot4.R

tolto path assoluto