geom_GeomMissPoint() has yet to be implemented in plotly

Warning: Removed 5625 rows containing non-finite values (stat_summary).
Warning in geom2trace.default(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[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

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

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

ggplotly(p)

从提供的 naniar 和 ggplot2 示例开始，然后追踪 geom_GeomMissPoint() 的 geom2trace.default 警告。确定受支持的 geom 如何转换为 ggplotly，并为 geom_miss_point 添加等效处理，重新运行示例进行验证，确保不再出现不支持的 geom 警告。