Create plot2.R

Initial version