Create plot1.R

R code to create the file plot1.png