在ggplot2 R mtcars示例

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包可能非常有用。然而，它不适用于黄土，因为黄土没有给出配方。见这里：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