显示有关图形顶点的附加信息

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

显示有关图形顶点的附加信息

Display additional information on vertex of a graph

r

igraph

vertex-attributes

tkplot