Update Plot4.r