Create plot 1

R Code to create plot 1