Create plot1.R

Plot 1