Implementation of geom_miss_point() to plotly

I cannot run geom_miss_point() - from package naniar - inside ggplotly() function. The error message is:

In geom2trace.default(dots[[1L]][[10L]], dots[[2L]][[1L]], ... :
geom_GeomMissPoint() 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

# load packages
library(plotly)
library(naniar)

#load the diamonds dataset from the ggplot2 package
data(diamonds, package = "ggplot2")

# fake some missing data
diamonds$price_miss <- ifelse(diamonds$depth>60, diamonds$price, NA)

# interactive plot
p <- ggplot(diamonds, aes(x = clarity, y = log(price_miss))) +
  geom_miss_point(alpha = 0.1) + 
  stat_summary(fun.data = "mean_cl_boot", colour = "black") +
  facet_wrap(~cut)
toWebGL(ggplotly(p))

從 ggplotly() 使用的 geom2trace.default 轉換路徑開始，重點處理由 naniar 的 geom_miss_point() 產生的不受支援的 GeomMissPoint。使用提供的、結合 ggplotly() 和 toWebGL() 的 diamonds 範例進行重現；在沒有 unimplemented-geom 錯誤的情況下完成渲染即表示完成。