Как добавить lenegs в ggplot2?

[Stalkert]

Считываю из файла три столбца, по ним рисуется две функции, привожу код

'''

library(ggplot2)

df = fread(«Monoms 1.txt», header = TRUE, dec = «,»

x=df`1`

y1 <- df`2`

y2 <- df`3`

df <- data.frame(x, y1, y2)

ggplot(df, aes(x, y, colour = type)) + # basic graphical object

geom_line(aes(y = y1), colour = "red", lwd = 1) + # first layer

geom_line(aes(y = y2), colour = "green", lwd = 1) + # second layer

ylab("Логарифм от точности аппроксимации" + xlab("Число функций" + 

theme_bw() + ggtitle(«График»

'''

Как к добавить графикам легенды типа «legend1», «legend2»?

 ggplot2, r