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 转换。完成的标准是，生成的图显示误差条 trace 所需的预期图例键。