Update plot3.R and create plot3.png