使用plotly::ggplotly从ggplot图中保留两个图例

Question

当我将具有ggplot两个单独图例的 a 转换为plotly（使用ggplotly）时，两个图例合并。有谁知道如何防止这种情况？

library(tidyverse)
library(plotly)
df <- data.frame(date = 
                   as.Date(c("01/01/1998", "10/01/1998", "15/01/1998", 
                             "25/01/1998", "01/02/1998", "12/02/1998", "20/02/1998"), "%d/%m/%Y"),
                 date2 = as.Date(c(NA, "10/01/1998", NA, 
                                   NA, NA, NA, NA), "%d/%m/%Y"),
                 counts = c(12, 10, 2, 24, 15, 1, 14),
                 yes_no = c("yes", "yes", "yes", "no", "no", "no", "no"))
gg <- ggplot(df, aes(x = date, y = counts)) +
  geom_line() +
  geom_ribbon(aes(ymin = 0, ymax = counts, fill = yes_no), color = NA, alpha = 0.5) +
  ggplot2::scale_fill_brewer(name = "status 1", palette = "Accent") +
  geom_vline(mapping = aes(xintercept = as.numeric(date2), col = "mystatistic")) +
  scale_color_manual(name = "statistics", values = c("mystatistic" = "red")) 
gg

这产生了两个图例：

但是当我转换为plotly：

ggplotly(gg)

它返回一个图例，但缺少第二个图例标题：

此链接对于从当前图中删除括号和逗号很有用，但这不是我正在寻找的解决方案。

谢谢