Delete Loess Lines Messy Data.R