Считываю из файла три столбца, по ним рисуется две функции, привожу код
'''
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»?
