Create plot2.R

Script for creating plot2