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)

Beginnen Sie mit der Ausführung des bereitgestellten ordr::ggbiplot-Beispiels und dem Aufruf von plotly::ggplotly(p), um den Fehler „geom_GeomAxis() not implemented“ zu reproduzieren. Verfolgen Sie anschließend, wie ggplotly die Plot-Layer verarbeitet, fügen Sie dann Unterstützung für GeomAxis hinzu und überprüfen Sie, dass das Beispiel ohne diesen Fehler konvertiert wird und die Achsen im resultierenden Plot erhalten bleiben.