ggplot2 thêm chú thích cho một số stat_functions

Question

Tôi thấy rất nhiều câu hỏi liên quan đến cách tùy chỉnh truyền thuyết, nhưng tôi thậm chí không thể có chú thích để tùy chỉnh. Tôi muốn có một truyền thuyết giải thích rằng đường màu đen là bậc hai và đường màu xanh lục là hình khối.

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

Hãy thử điều này:

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