Commit of R code and image for plot1