ordr: would please like geom_GeomAxis() implemented in plotly

I want to use plotly on a GG of a biplot using package ordr. Creating issue as advised.

# Example taken from ordr::ggbiplot
# Also partly from <https://corybrunson.github.io/ordr/>

library(ordr)

# PCA of iris data
iris_pca <- ordinate(iris, cols = 1:4, prcomp, scale = TRUE)

# row-principal predictive biplot
p <- ggbiplot(iris_pca, sec.axes = "cols", scale.factor = 2) +
  geom_rows_point(aes(color = Species, shape = Species)) +
  stat_rows_ellipse(aes(color = Species), alpha = .5, level = .99) +
  geom_cols_vector() +
  geom_cols_text_radiate(aes(label = name)) +
  expand_limits(y = c(-3.5, NA)) +
  ggtitle("PCA of Anderson's iris measurements",
          "99% confidence ellipses; variables use top & right axes")

# GGplot as seen in <https://corybrunson.github.io/ordr/>
p

# Plotly of GGplot, but "geom_GeomAxis() not implemented"
plotly::ggplotly(p)

Commencez par exécuter l’exemple ordr::ggbiplot fourni et appeler plotly::ggplotly(p) afin de reproduire l’erreur « geom_GeomAxis() not implemented ». Suivez ensuite la manière dont ggplotly gère les couches du graphique, ajoutez la prise en charge de GeomAxis, puis vérifiez que l’exemple est converti sans cette erreur et que les axes sont conservés dans le graphique résultant.