Create plot1.R

Initial version of plot1.R