Plot 1 - R Code