Plotten von zwei Variablen als Linien mit ggplot2 im selben Diagramm

Question

Eine sehr ungewohnte Frage, aber nehmen wir an, ich habe Daten wie diese:

test_data <-
  data.frame(
    var0 = 100 + c(0, cumsum(runif(49, -20, 20))),
    var1 = 150 + c(0, cumsum(runif(49, -10, 10))),
    date = seq(as.Date("2002-01-01"), by="1 month", length.out=100)
  )

Wie kann ich beide Zeitreihen darstellen? var0 y var1 auf demselben Diagramm, mit date auf der x-Achse, mit ggplot2 ? Bonuspunkte, wenn Sie var0 y var1 verschiedene Farben und können eine Legende enthalten!

Ich bin sicher, dass dies sehr einfach ist, aber ich kann keine Beispiele finden.