Plot Linie mit bekannter Steigung in ggplot & add "CI"

Question

Ich bin derzeit mehrere Parzellen mit ggplot schaffen, in dem ich eine lineare Regression passen.

format.multi2<-theme_bw() + 
    theme(axis.line=element_line(colour="black"), 
     axis.text=element_text(size=14, colour="black"), 
     axis.title=element_text(size=16, colour="black"), 
     panel.grid=element_blank(), 
     panel.border=element_blank(), 
     plot.margin=unit(c(.3,.3,.4,.4), "cm")) 

ggplot(bank.multi2, aes(x=d2H2, y=d2H1)) + 
    geom_point(size=2) + 
    geom_smooth(method='lm', se=FALSE, colour="black") + 
    labs(y=expression(paste(paste(delta^2,"H")[t+x])), 
     x=expression(paste(paste(delta^2,"H")[t]))) + 
    xlim(min(bank.multi$d2H), max(bank.multi$d2H)) + 
    ylim(min(bank.multi$d2H), max(bank.multi$d2H)) + 
    format.multi2 

Dies führt zu einer Handlung, die wie folgt aussieht:

Ich mag würde, um visuell die Steigung der Regression auf eine andere Linie mit einer Steigung von 1 und einem Abschnitt von 0 mit "vergleichen Fehlerbalken "(oder ein Farbband) auf beiden Seiten, die Neigungen von 0,9 bis 1,1 abdecken. Hat jemand eine Idee, wie ich das zu meinen Plots hinzufügen kann?

Answer 1

Verwenden Sie geom_abline für die Linie und geom_ribbon für das Intervall.