Plot and R Code for plot2