Create Plot2.r