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)

Bắt đầu với ví dụ naniar và ggplot2 được cung cấp, sau đó truy vết cảnh báo geom2trace.default cho geom_GeomMissPoint(). Xác định cách các geom được hỗ trợ được chuyển đổi cho ggplotly và thêm phần xử lý tương đương cho geom_miss_point, được kiểm chứng bằng cách chạy lại ví dụ mà không có cảnh báo về geom không được hỗ trợ.