First cut of plot1.R

First cut of plot1.R