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

回答

相關問題