强制回归到第一个数据点ggplot

Question

我在强制多项式回归从x轴的第一个观测值开始时遇到问题。它必须是动态的，因为我正在制作多面图。

一个可重现的示例：我希望该行从此代码段创建的图中蓝色标记的点开始：

library(tidyverse)

df <- mtcars %>% 
  group_by(am) %>% 
  mutate(first_point = if_else(hp == min(hp), 1, 0))

ggplot(df, aes(hp, qsec, 
               color = as.factor(first_point),
               size = as.factor(first_point))) +
   geom_point() +
   geom_smooth(method = "lm", 
               se = F,
               formula = y ~ poly(x, 3)) +
   facet_wrap(~ am)

基本上我想要的（不起作用）是geom_smooth中的这个公式：

formula = qsec ~ min(hp) + poly(hp, 3)

希望任何人都知道一个把戏：）