Я пытался вручную добавить легенду к простому линейному графику, однако после внесения изменений для вставки легенды фактические линии на графике деформировались, и я не знаю, что является причиной этой проблемы.
Оригинальный код:
ggplot(data=df, aes(x=Time, group=1)) +
geom_line(aes(y = var1), colour = "red") +
geom_line(aes(y = var2), color = "blue") +
geom_line(aes(y = var3), color = "green") +
geom_line(aes(y = var4), colour = "black")
Модифицированный код для добавления легенды:
df_sub <- df[,c(1, 2,3,4, 5)]
dd = melt(df_sub, id=c("Time"))
ggplot(dd) + geom_line(aes(x=Time, y=value, colour=variable, group = 1 ))+
scale_colour_manual(values=c("red","green","blue", "black"))
Graph:
