Delete Plot 1 R code.R