Create plot1.R

Plot1