Легенда в R с использованием ggplot2

Question

Я сделал этот график в R:

library(ggplot2)
set.seed(1)
x <- rnorm(100)
eps <- rnorm(100, sd=0.25)
y <- -1+0.5*x+eps
arq <- data.frame(X=x, Y=y)
disp <- ggplot(arq)+geom_point(aes(X,Y), col="gold")+theme_bw()+
  geom_smooth(aes(X,Y,color="Regression"), method=lm, se=FALSE, size=0.5, col="red", show.legend=TRUE)+
  geom_abline(aes(slope=0.5,intercept=-1,color="True"), col="blue", size=0.5, show.legend=TRUE)+
  scale_color_manual(values=c("red","blue"))

Я думал, что эта конфигурация покажет легенду об истинной линии отношения и линии регрессии,но не случилось.Чего мне не хватает?

Как мне продлить линию регрессии?

Answer 1

Это может быть то, что вы хотите

disp <- ggplot(arq)+geom_point(aes(X,Y), col="gold")+
 geom_smooth(aes(X,Y,color="Regression"), method=lm, se=FALSE, size=0.5)+
 geom_abline(aes(slope=0.5,intercept=-1,color="True"), size=0.5, show.legend = FALSE)+
 scale_color_manual(values=c("red","blue"))

Установка параметров col = "red" и col = "blue" приводит к тому, что легенда не отображается.Наличие аргументов цвета внутри aes () создаст легенду.

Кроме того, использование аргумента show.legend = FALSE в geom_abline () предотвратит наличие в нем косой черты.