ggplotにカスタム凡例を追加

Question

私は散布図を作成し、回帰直線を追加しました。私はggplot2で新しく、伝説を追加する方法をよく理解していませんでした。私はscaterプロットのような円が "data"と言っていて、 "regression"と言っている線が欲しい。これどうやってするの？

library(ggplot2) 

ggplot(mpg, aes(displ, cty)) + geom_point(shape = 1) + 
    stat_smooth(method = "lm", formula = y ~ x, se = FALSE, colour = 1, size = 0.5) + 
    theme_classic() + theme(panel.border = element_rect(colour = "black", fill=NA), 
          aspect.ratio = 1, axis.text = element_text(colour = 1, size = 12)) 

そして、私は何かしたい：システムが重くに「マッピング」あなたのデータに基づいていますよう

Answer 1

カスタム伝説がggplotに達成することが難しいことができますスケールを使って凡例を作成します。

ggplot(mpg, aes(displ, cty)) + 
    geom_point(aes(shape = "Data")) + 
    stat_smooth(aes(linetype = "Regression"), method = "lm", 
       formula = y ~ x, se = FALSE, colour = 1, size = 0.5) + 
    scale_shape_manual(values = 1) + 
    labs(shape = "", linetype = "") + 
    theme_classic() + 
    theme(panel.border = element_rect(colour = "black", fill=NA), 
      aspect.ratio = 1, axis.text = element_text(colour = 1, size = 12))