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

Bắt đầu từ các ví dụ ggplot2 và ggplotly được cung cấp, sau đó kiểm tra mã plotly.R chịu trách nhiệm chuyển đổi chú giải và các trace văn bản. Tái tạo một chú giải có văn bản trên các điểm và các nhãn như “minus” và “plus”; được xem là hoàn thành khi kết quả Plotly khớp về mặt trực quan với hành vi chú giải ggplot2 được yêu cầu.