Create plot4.r