我可以用geom_smooth绘制一个特定的拟合吗？

Question

以下是我正在使用的一些示例数据

my.data <-tibble::tribble(
               ~Mean,          ~Variance,
    9.16666666666667,   16.2269503546099,
    1.91666666666667,   4.88652482269504,
              2.4375,   6.03856382978723,
    4.35416666666667,   14.3187056737589,
    2.20833333333333,   4.97695035460993,
   0.458333333333333,   1.01950354609929,
    1.70454545454545,   6.11997885835095,
   0.568181818181818,   1.18128964059197,
   0.431818181818182,   1.27431289640592,
   0.340909090909091,  0.462473572938689,
  0.0454545454545455, 0.0909090909090909,
   0.113636363636364,  0.242600422832981
  )

我想使用c(1,/1.46)绘制具有特定系数geom_smooth的多项式。我以为我可以做像

这样的事情

my.data %>% 
  ggplot(aes(Mean,Variance)) + 
  geom_point(size = 2) +
  geom_abline() +
  geom_smooth(method = lm, se = F, color = 'black', linetype = 'dashed', size= 0.5, 
              formula = y ~ poly(x, 2, coefs = c(1, theta))) +
  theme_minimal() +
  theme(aspect.ratio = 1)

但是geom_smooth没有出现在情节中。这是为什么？我可以使用geom_smooth（）？

绘制具有任意系数的多项式