Create Plot1.R

plot1