Показать дополнительную информацию о вершине графа

Question

У меня есть ориентированный граф, используя следующий пример

ba <-  sample_pa(n=100, power=1, m=1,  directed=T)
V(ba)$color<-"yellow"
tkplot(ba , layout=layout.fruchterman.reingold(ba), canvas.width=1024,canvas.height=768)

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

Answer 1

Я не знаю о tkplotОднако есть альтернатива, которая отображает всплывающую подсказку при наведении на край. То же самое работает и для вершин:

library(igraph)
library(visNetwork)
library(fortunes)
set.seed(1)
ba <-  sample_pa(n=100, power=1, m=1,  directed=T)
V(ba)$color<-"yellow"
E(ba)$title <- sapply(1:ecount(ba), function(x) paste(strwrap(fortune(x)$quote, 40L), collapse="<br>"))
visIgraph(ba) %>% 
  visEdges(color = "black") %>% 
  visIgraphLayout("layout.fruchterman.reingold") %>%
  visOptions(width = "1600", height = "1200")