Create Plot3.R

Code for Plot 3