У меня есть двухсторонняя сеть, где есть небольшое количество событий, связанных с большим количеством актеров. Это означает, что если я попытаюсь пометить каждую точку на графике, очень трудно прочитать текст.
Вместо этого я хотел бы скрыть эту информацию за наведением мыши. Однако я не могу найти способ извлечь информацию из моего 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"
бит вышеупомянутого кода, всплывающие подсказки показывают это:
, когда то, что я на самом деле хочу, чтобы они показывали, в данном случае, например, «A». Включение параметра всплывающей подсказки, как указано выше, означает, что вообще ничего не отображается, возможно потому, что он не может его найти.
Возможно ли это? Как мне это сделать?