Using ggplot, how does plot the type lines in legend?

Question

Let\'s suppose that I have the following dataset

Date_spill<-rev(seq(as.Date("2019-02-28"), length = 3135, by = "-1 day"))
Total_var<