Delete plot 4 R code.R