Create Plot 1 R