ggplotly does not display geom_errorbar legend keys

It drops off the keys in the legend.

library(dplyr)
library(ggplot2)
library(palmerpenguins)

plot_data <- penguins %>%
  group_by(sex, species) %>%
  summarise(middle = median(body_mass_g, na.rm = TRUE),
            lower = quantile(body_mass_g, probs = 0.25, na.rm = TRUE),
            upper = quantile(body_mass_g, probs = 0.75, na.rm = TRUE))

p <- ggplot(plot_data) +
  geom_errorbar(aes(x = sex, ymin = lower, ymax = upper, col = species)) 

plotly::ggplotly(p)

Bắt đầu bằng cách chạy ví dụ R có thể tái hiện trong issue và kiểm tra quá trình chuyển đổi ggplotly của layer geom_errorbar. Việc này được xem là hoàn tất khi biểu đồ kết quả hiển thị các khóa chú giải mong đợi cho các trace thanh lỗi.