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

Beginnen Sie mit den bereitgestellten ggplot2- und ggplotly-Beispielen und untersuchen Sie anschließend den für die Konvertierung von Legenden und Text-Traces zuständigen plotly.R-Code. Erstellen Sie eine Legende mit Text über Punkten und Beschriftungen wie „minus“ und „plus“; fertig ist die Aufgabe, wenn das Plotly-Ergebnis das gewünschte Legendenverhalten von ggplot2 visuell abbildet.