For get the legend you need plot each line and put the name of each legend in color.
Each call to geom_line() has an aes argument that specifies how the data frame variables are mapped to the aesthetic elements of the graph. The color argument is used to assign colors to each line.
df <- data.frame(x=c(1,2,3,4,5), y=c(2,4,6,8,10), z=c(3,6,9,12,15))
df %>%
ggplot() +
geom_line(aes(x = x, y = y, color = "Alabama sales of blue widgets")) +
geom_line(aes(x = x, y = z, color = "Arizona sales of red widgets")) +
scale_color_manual(values=c("blue", "red")) +
labs(color = "")