Create Plot 3.R