Create Plot 2.R