は以下のAES美的コール

Question

を考えてみていないことをgeom_smoothに凡例を追加します。

library(ggplot2) 

ggplot(mtcars, aes(disp, mpg)) + 
    geom_point(aes(color = factor(cyl))) + 
    geom_smooth(aes(color = factor(cyl)), se = FALSE, method = "lm") + 
    geom_smooth(se = FALSE, method = "lm", fullrange = TRUE, color = "black") 

それは黒い線のスケールや凡例を追加することは可能ですか？ような何か：すべてのデータの凡例をして0​​色の伝説から分離することができ

p <- ggplot(mtcars, aes(disp, mpg)) + 
    geom_point(aes(color = factor(cyl)), show.legend = FALSE) + 
    geom_smooth(aes(color = factor(cyl)), se = FALSE, method = "lm") + 
    geom_smooth(se = FALSE, method = "lm", fullrange = TRUE, 
       aes(color = "all data")) + 
    scale_color_manual(values = c(scales::hue_pal()(3), "black")) 
print(p) 

Answer 1

ただ、二geom_smooth()の呼び出しで別のaesマッピングを追加scale_fill_identityでの次のトリックは、colorの代わりにfillを使用して、データgeom_smooth：

ggplot(mtcars, aes(disp, mpg, color = factor(cyl))) + 
    geom_point() + 
    geom_smooth(se = FALSE, method = "lm") + 
    geom_smooth(data=mtcars, aes(disp, mpg, fill = 'black'), se = FALSE, method = "lm", color='black') + 
    scale_fill_identity(name = '', guide = 'legend',labels = c('all data')) 

Answer 2

：