Create plot2.R

This is the code for exploratory data analysis plot2