ggplot2 agrega una leyenda para varias funciones de estadísticas

Question

Veo muchas preguntas sobre cómo personalizar las leyendas, pero ni siquiera puedo obtener una leyenda para personalizar. Me gustaría tener una leyenda que explique que la línea negra es cuadrática y que la línea verde es cúbica.

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

Answer 1

Prueba esto:

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