ggplotly does not yet support stat_poly_eq from ggpmisc package

Brief description of the problem
stat_poly_eq from ggpmisc package not currently supported with ggplotly for displaying equations of plotted models to a set of scatter data points.

my.formula <- y ~ x
ggplotly(ggplot(data = plotting_data1_1, aes(x = Days_observed, y = diff, group = year_month , colour = year_month)) + geom_point() +  geom_smooth(data = plotting_data1_1, aes(group = year_month, colour = year_month), method = lm, se = FALSE, formula =  my.formula)    + stat_poly_eq(data = plotting_data1_1, aes(label = paste(..eq.label.., ..rr.label.., sep = "~~~"),  colour = year_month),formula = my.formula, parse = TRUE)+  ylab("Actual estimate - Subsample estimate")  + theme(plot.title = element_text(hjust = 0.5)))

#> Don't know how to automatically pick scale for object of type difftime. Defaulting to continuous.
Warning message:
In geom2trace.default(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]]) :
  geom_GeomTextNpc() has yet to be implemented in plotly.
  If you'd like to see this geom implemented,
  Please open an issue with your example code at
  https://github.com/ropensci/plotly/issues

Commencez par exécuter l’exemple ggplotly fourni et examinez l’avertissement de geom2trace.default concernant la géométrie GeomTextNpc non implémentée. Suivez ensuite la conversion des couches ggplot en traces Plotly, puis vérifiez que stat_poly_eq restitue l’équation du modèle et l’étiquette R² dans le graphique obtenu.