Hardcode斜率和截距从lm到ggplot的geom_abline

我有R代码的斜率和截距的回归线。它看起来像这样：Hardcode斜率和截距从lm到ggplot的geom_abline

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代码的结果手动输入图I的geom_abline部分中的截距和斜率。如何使用R将这些代码编码到图形代码中？

来源

2017-07-12 GR1818

你可以从'COEF（A）这些值' –

为什么你需要'abline'除了'geom_smooth'？ – juan

'geom_smooth'分组逐组作业。 OP还可以使用'+ geom_smooth（method ='lm'，aes（group = 1），se = FALSE）'获得整个数据集的回归线。 –

lm函数将线性模型的属性存储在列表中。要获得系数：

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

来源

2017-07-12 13:53:09 Koot6133

这正是我所期待的，谢谢！ – GR1818

Hardcode斜率和截距从lm到ggplot的geom_abline

回答

相关问题