Create plot1.R

Initial commit