lmからgmplotのgeom_ablineへのハードコードスロープとインターセプト

Question

回帰直線の傾きと切片のRコードがあります。それは次のようになります。

A <- lm(formula=A~B,data=Averages) 

私はこの取得：今

ggplot(Averages, aes(x=B,y=A,color=factor(C))) + 
    geom_point(aes(color= factor(C)),size=3) + 
    geom_smooth(method='lm', se=FALSE) + 
    geom_abline(intercept=4.4110, slope=0.4356,size=1) 

：私がどのように見えるggplotのための私のコードにその傾きと切片をコーディングしたい

Coefficients: 
(Intercept) B 
    4.4108 0.4896 

をグラフのgeom_abline部分のインターセプトとスロープは、上記のlmコードの結果に基づいて手動で入力します。 Rを使用する代わりに、これらをグラフコードにどのように記述すればよいですか？

Answer 1

lm関数は、線形モデルの属性をリストに格納します。係数取得するには：

##Intercept 
A$coefficients[1] 
## predictor 1 
A$coefficients[2]