Create plot3.R

R code for plot 3.