r - 将 lm 的斜率和截距硬编码到 ggplot 的 geom_abline

Question

我有回归线的斜率和截距的 R 代码。它看起来像这样:

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

我明白了:

Coefficients:
(Intercept)    B
     4.4108    0.4896

我想将那个斜率和截距编码到我的代码中以获得如下所示的 ggplot:

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)

现在，我根据上面 lm 代码的结果手动输入图表的 geom_abline 部分中的截距和斜率。我如何将这些编码到图形代码中而不是使用 R？

Answer 1

lm 函数将线性模型的属性存储在一个列表中。获取系数:

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