Plot4.R