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

Comienza con los ejemplos proporcionados de ggplot2 y ggplotly y, después, inspecciona el código de plotly.R responsable de convertir las leyendas y las trazas de texto. Reproduce una leyenda con texto sobre puntos y etiquetas como “minus” y “plus”; se considera terminado cuando el resultado de Plotly coincida visualmente con el comportamiento solicitado de la leyenda de ggplot2.