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

まず、提供されている ggplotly の例を実行し、未実装の GeomTextNpc ジオメトリに関する geom2trace.default の警告を確認します。次に、ggplot のレイヤーが Plotly のトレースに変換される仕組みを追跡し、その後、stat_poly_eq が生成されたプロットでモデルの式と R² ラベルを描画することを検証します。