Plot and R Code for plot1