This is the Rcode to plot graph 1