ggplot добавить легенду к ручным кривым

Question

x <- seq(0, 50, 1) 
y1 <- exp(0.0509*x) 
y2 <- exp(0.0519*x) 
df <- data.frame(x,y1,y2) 

ggplot(df, aes(x)) +      
    geom_line(aes(y=y1), colour="blue") + 
    geom_line(aes(y=y2), colour="red") 

В соответствии с кодом, я хотел бы, чтобы добавить легенду под названием «группа 1» для y1 и «группа 2» для y2. Я пробовал много вещей, которые я видел на этом форуме, но всегда получаю сообщение об ошибке.

Answer 1

Используйте это:

library(reshape2) 
library(ggplot2) 
gg <- melt(df,id="x") 
ggplot(gg, aes(x=x, y=value, color=variable))+ 
    geom_line()