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 の警告なしで例を再実行して検証します。