replicate ggplot2 text legend

I'd like to create a legend having text over a point as in the ggplot2 example below. How can I replicate this with plotly. Doesn't need to be a nice and clean ggplotly() solution.

library(ggplot2)
library(plotly)
ds <- data.frame(text = c("+", "-"))
p <- ggplot(ds, aes(x = text, y = text, label = text)) +
  geom_point(aes(colour = text), size = 6) +
  geom_text(show.legend = TRUE) +
  guides(colour = guide_legend(override.aes = list(label = c("-", "+")))) +
  scale_colour_discrete(labels = c("minus", "plus"))
p
ggplotly(p)

ggplot2 version

ggplotly version

Commencez par les exemples ggplot2 et ggplotly fournis, puis examinez le code plotly.R responsable de la conversion des légendes et des traces de texte. Reproduisez une légende avec du texte au-dessus des points et des libellés tels que « minus » et « plus » ; c’est terminé lorsque le résultat Plotly correspond visuellement au comportement de légende demandé de ggplot2.