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 の凡例の動作と視覚的に一致することです。