Рассчитать новое значение, используя mutate и формулу в трубе dplyr

Question

Как можно вычислить новое значение в трубе dplyr, используя mutate и, например, stat_poly_eq?

Следующий код создает график с формулой для lm в каждом фасете.Можно ли рассчитать новый y по формуле в stat_poly_eq перед построением?

data %>%
  group_by(year, type, class) %>%
  filter(avv_yday > 100) %>%
  ggplot(aes(y=weight, x=age)) +
  facet_grid(year ~ type + class) +
  geom_smooth(method = "lm", se=FALSE, color="black") +
  stat_poly_eq(formula = y ~ x,
               eq.with.lhs = "italic(hat(y))~`=`~",
               aes(label = paste(..eq.label.., ..rr.label.., sep = "*plain(\",\")~")), 
               parse = TRUE) +         
  geom_point() +
  ylim(100, 500)