硬编码斜率和截距从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]