Create Plot4.R