Delete plot 3 R code.R