Create plot2.R

Plot 2