Plot 2 - R Code