ggplot2 dodaje legendę dla kilku funkcji stat_functions

Widzę wiele pytań dotyczących dostosowywania legend, ale nie mogę nawet dostosować legendy. Chciałbym mieć legendę wyjaśniającą, że czarna linia jest kwadratowa, a zielona linia sześcienna.

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

questionAnswers(1)

yourAnswerToTheQuestion