0

次の例を使用して、有向グラフがあります

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)

頂点を右クリックしたときに追加情報を表示する方法、または各頂点にマウスを移動すると表示されるツールチップを使用して情報を表示する方法を見つけたいと思います。頂点に属性を設定しようとしましたが、それらを表示する方法が見つかりません。

4

1 に答える 1

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

ここに画像の説明を入力

于 2016-11-15T10:04:02.810 に答える