Update plot4.r

correct little mistake