Create Plot 4.R