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

从提供的 ggplot2 和 ggplotly 示例开始，然后检查负责转换图例和文本轨迹的 plotly.R 代码。复现一个点上带有文本以及“minus”和“plus”等标签的图例；当 Plotly 结果在视觉上匹配所要求的 ggplot2 图例行为时，即视为完成。