Add legend to ggplot line graph based on linetype

Question

I am trying to add a legend to a ggplot graph that uses solid and dashed lines.

require(ggplot2)

DATE <- c("2020-10-14", "2020-10-15",