Create Loess Lines Messy Data.R