Update plot3.R

Added comments to explain steps