Create Plot2 and R file