在ggplot2 R mtcars示例中接收stat_smooth的等式

Question

嗨，我想知道如何在ggplot2或矢量或其他地方檢索stat_smooth的等式。 我正在使用的代碼是：

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

謝謝

Answer 1

ggpmisc軟件包可能非常有用。 但是，它不適用於黃土，因為黃土沒有給出公式。 參見此處： 黃土擬合和所得方程

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