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))

Bắt đầu từ đường dẫn chuyển đổi geom2trace.default được ggplotly() sử dụng, tập trung vào GeomMissPoint chưa được hỗ trợ do geom_miss_point() của naniar tạo ra. Sử dụng ví dụ diamonds được cung cấp với ggplotly() và toWebGL() để tái hiện; hoàn thành khi nó được render mà không có lỗi unimplemented-geom.