ggplotly unable to handle multiple legends properly in layered charts generated by ggplot2

From the example in http://bxhorn.com/legends-ggplot/#managing-multiple-legends-in-a-layered-chart

# Multiple Legends
# load data
data(diamonds)
# calc quantiles with specified probabilities
new.prob <- c(0.90, 0.95, 0.99)
cut.probs <- plyr::ddply(diamonds, .(cut), numcolwise(quantile, probs = new.prob))[, c("cut", "price")]
cut.probs <- transform(cut.probs, quantile = c("P90", "P95", "P99"))
# layered graph
gg<-ggplot(diamonds, aes(cut, price)) + 
  geom_boxplot(aes(fill = factor(cut))) + 
  geom_point(data = cut.probs, aes(cut, price, color = factor(quantile)), size = 5) +
  scale_fill_discrete(name = "Quality of the Cut") +
  scale_color_discrete(name = "My Quantiles")
gg
plotly::ggplotly(gg)

1. Multiple legend titles are clustered together
2. Multiple legends are not separated
3. There is extra text ",1" in legend labels

This is the ggplot2 output:

This is the ggplotly output:

从提供的分层 ggplot2 示例和 ggplotly(gg) 入口开始，将其输出与 ggplot2 输出进行比较。跟踪两个 aesthetics 及其 scale 名称如何变成 legend。完成的标准是标题已分开、legend 彼此独立，并且不存在额外的 ",1" 文本。