我有一个定向图,使用以下示例
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)
我想找到一种方法,当我在一个顶点上单击鼠标右键或使用在每个顶点上移动鼠标时出现的工具提示来显示信息时,将显示其他信息。我试图为顶点设置属性,但是找不到显示它们的方法。
我不知道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")
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句