Create plot3.r