create plot3.R