ggplot2のstat_smoothの式を受け取るR mtcarsの例

Question

こんにちは、stat_smoothの方程式は、ggplot2の中か、または他のどこかで取り出すことができます。私が使用していたコードは次のとおりです。

p <- ggplot(data = mtcars, aes(x = disp, y = drat)) 
p <- p + geom_point() + stat_smooth(method="loess") 
p 

おかげ

Answer 1

ggpmiscパッケージには、非常に役に立つことができます。しかし、黄土は数式を与えていないので、黄土と一緒には動作しません。ここを参照してください：Loess Fit and Resulting Equation

library(ggplot2) 
library(ggpmisc) 
p <- ggplot(data = mtcars, aes(x = disp, y = drat)) + 
    geom_point() + 
    geom_smooth(method="lm", formula=y~x) + 
    stat_poly_eq(parse=T, aes(label = ..eq.label..), formula=y~x) 
p