Plot4.R. Added comments