ggplot2 добавляет легенду для нескольких stat_functions

Я вижу много вопросов о том, как настроить легенды, но даже не могу настроить легенду. Я хотел бы иметь легенду, объясняющую, что черная линия является квадратичной, а зеленая - кубической.

<code>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")
</code>

Ответы на вопрос(1)

Решение Вопроса

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"))

enter image description here

 30 окт. 2018 г., 00:39
Как добавить к этому непрерывную цветовую шкалу?
 Xu Wang10 апр. 2012 г., 19:18
спасибо, кохске

Ваш ответ на вопрос