如何找到由geom_smooth公式= y〜poly（x，2）

Question

我希望创建一条最佳拟合线，并使用其公式来推断观察到的点之间。

我希望展示代表拟合线的多项式函数，这可能吗？

这将使用多项式公式创建具有观测点和最佳拟合线的图，我想知道如何检索最佳拟合线的成分以将其表达为数学方程式

Valve_Vol_plot <- ggplot(AVG_Vals, aes(x = Diameter, y = 
  T_Valve_Vol_um.3))+
  geom_smooth(aes(x = Diameter, y = T_Valve_Vol_um.3), se = F, method = 
  "lm", formula = y ~ poly(x, 2))+
  geom_point()+
  labs(x="Diameter (µm)", y="Valve Volume")+
  scale_x_reverse()

Valve_Vol_plot + theme_classic()