Я вижу много вопросов относительно того, как настраивать легенды, но я даже не могу получить легенду для настройки. Я хотел бы иметь легенду, объясняющую, что черная линия квадратична и что зеленая линия является кубической.
library(ggplot2)
myfun1 <- function(x) x^2
myfun2 <- function(x) x^3
myplot <- ggplot(data = data.frame(x = 1:5, y= 1:5), aes(x=x, y=y)) +
stat_function(fun = myfun1, color="green") +
stat_function(fun = myfun2, color="black")
Попробуйте следующее:
ggplot(NULL, aes(x=x, colour = g)) +
stat_function(data = data.frame(x = 1:5, g = factor(1)), fun = myfun1) +
stat_function(data = data.frame(x = 1:5, g = factor(2)), fun = myfun2) +
scale_colour_manual(values = c("red", "green"), labels = c("quadratic", "cubic"))
