Create Plot 4 R