Create plot1.R

plot1 code