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)

首先运行提供的 ordr::ggbiplot 示例，并调用 plotly::ggplotly(p) 以复现“geom_GeomAxis() not implemented”错误。跟踪 ggplotly 如何处理绘图图层，然后添加对 GeomAxis 的支持，并验证该示例能够在没有此错误的情况下完成转换，且生成的图中保留坐标轴。