Create Plot 3 R