r - 显示图形顶点的附加信息

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")