Create Plot4.r