Create Plot 2 R