adding plot4.r