Create plot3.R