coeff輸出爲標題標題

Question

我用geom_smooth(mehtod="lm")繪製線性迴歸。現在我想使用線性迴歸的係數和截距作爲圖的標題。

我用Coeff <- coef(lm(Eo2005I ~ Eo2005P))找到我需要的值，但ggtitle似乎不喜歡c(Coeff["Eo2005P"],Coeff["Intercept"])輸入的文本。我該怎麼辦？

Answer 1

嘗試「粘貼」coef的各個元素在一起。

coefftemp <- coef(lm(...)) 
Coeff <- paste(coefftemp[1],coefftemp[2])