Ich sehe viele Fragen zum Anpassen von Legenden, aber ich kann nicht einmal eine Legende zum Anpassen bekommen. Ich hätte gerne eine Legende, die erklärt, dass die schwarze Linie quadratisch und die grüne Linie kubisch ist.

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