显示有关图形顶点的其他信息

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