Create plot1.R

Plot1.R produces plot1.png