Update plot4.r