Create plot2.R

R Code that Creates plot2