Create Plot 1.R