ggplot2 - separate legend for multiple geom_lines

Question

I am plotting a time series that looks like this:

library(ggplot2)

df1 <- data.frame(date=as.Date(seq(ISOdate(2019,1,1), by="1 day", length.out=365)