ändern Geom_smooth default legende Farbe

Question

Ich benutze geom_smooth und es gibt mir Standard-Legende Linienfarbe blau, die ich nicht in der Handlung verwenden kann. Gibt es eine Möglichkeit, die Standardfarbe für die geom_smooth-Legendenzeile zu ändern?

ich zum Beispiel Stab der Legende Farbe schwarz für Linientyp in der folgenden Handlung

 library(reshape2) 
    library(ggplot2) 
d1<-melt(mtcars,id=c("mpg","cyl")) 
     p<-ggplot(d1,aes(x=mpg,y=value,factor=variable,color=cyl)) 
     p1<-p+geom_smooth(aes(linetype = as.factor(cyl)),se = F,stat = "smooth",method = "glm",size=.5, inherit.aes = T)+ 
      scale_linetype_manual("line type",labels = rp, values=c(1,5,4,3)) 

Answer 1

Per meinem Kommentar, wenn Sie eine Überschreibung zu Ihrer Legende hinzufügen, können Sie ändern, wie die Farbe di splasiert. Dies sollte funktionieren:

p1<-p+geom_smooth(aes(linetype = as.factor(cyl)),se = F,stat = "smooth",method = "glm",size=.5, inherit.aes = T)+ 
    scale_linetype_manual("line type",labels = c("100 yr", "50 yr", "25 yr"), values=c(1,5,4,3)) + 
    guides(linetype = guide_legend(override.aes= list(color = "black"))) 

Und die resultierende Handlung ist:

Answer 2

wenn Sie + guides(linetype = guide_legend(override.aes= list(color = "black"))) zum letzten Grundstück

Dies löst tun fügen sie ändern danke @Mike