Delete plot 2 R code.R