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:

Comienza con el ejemplo de ggplot2 por capas proporcionado y el punto de entrada ggplotly(gg), comparando su salida con la salida de ggplot2. Rastrea cómo las dos estéticas y sus nombres de escala se convierten en leyendas. Está terminado cuando los títulos están separados, las leyendas son distintas y el texto adicional ",1" no aparece.