`plotly::ggplotly` breaks when the `ggplot2` `key_glyph` argument is used in `ggplot2`

plotly::ggplotly breaks when the ggplot2 key_glyph argument is used in ggplot2.

library(tidyverse)

plot_data <- slice_sample(ggplot2::diamonds, prop = 0.01)

#this works
plot <- ggplot(plot_data) +
  geom_point(aes(carat, price, col = color, fill = color)) 

plot

plotly::ggplotly(plot)

#this does not work
plot <- ggplot(plot_data) +
  geom_point(aes(carat, price, col = color, fill = color), key_glyph = "polygon") 

plot

plotly::ggplotly(plot)

Bắt đầu với bản tái hiện R được cung cấp, so sánh các lệnh gọi hoạt động và thất bại tới plotly::ggplotly cùng với đối số key_glyph của geom_point. Theo dõi cách ggplotly xử lý trường hợp key_glyph và xác minh rằng ví dụ được chuyển đổi thành công mà không làm hỏng phần trực quan hóa kết quả.