Create Plot4 and R file