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 错误的情况下完成渲染即表示完成。