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)

まず issue にある再現可能な R の例を実行し、geom_errorbar レイヤーの ggplotly 変換を調べます。完了条件は、生成されたプロットにエラーバートレースに対する期待される凡例キーが表示されることです。