Create plot3.R

R code for creating plot 3