Отображение метки узла ggnet2 при наведении в ggplotly - PullRequest
0 голосов
/ 26 февраля 2020

У меня есть двухсторонняя сеть, где есть небольшое количество событий, связанных с большим количеством актеров. Это означает, что если я попытаюсь пометить каждую точку на графике, очень трудно прочитать текст.

Вместо этого я хотел бы скрыть эту информацию за наведением мыши. Однако я не могу найти способ извлечь информацию из моего ggnet2 объекта таким образом, чтобы ggplotly мог ее найти. Я понимаю, что мне нужно заполнить параметр всплывающей подсказки вызова ggplotly (), но не то, что с помощью.

Вот пример для работы:

library(network)
library(GGally)
library(plotly)
# weighted adjacency matrix
bip = data.frame(event1 = c(1, 2, 1, 0),
                 event2 = c(0, 0, 3, 0),
                 event3 = c(1, 1, 0, 4),
                 row.names = letters[1:4])

# weighted bipartite network
bip = network(bip,
              matrix.type = "bipartite",
              ignore.eval = FALSE,
              names.eval = "weights")

p <- ggnet2(bip, label = c("event1", "event2", "event3")) +
  theme(legend.position='none')

g <- ggplotly(p, tooltip = "label")

htmlwidgets::saveWidget(g, 'example.html')

Если я пропущу tooltip = "label" бит вышеупомянутого кода, всплывающие подсказки показывают это: enter image description here

, когда то, что я на самом деле хочу, чтобы они показывали, в данном случае, например, «A». Включение параметра всплывающей подсказки, как указано выше, означает, что вообще ничего не отображается, возможно потому, что он не может его найти.

Возможно ли это? Как мне это сделать?

...