Отображение дополнительной информации о вершине графа

У меня есть ориентированный граф, используя следующий пример

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)

Я хотел бы найти способ отображать дополнительную информацию, когда я щелкаю правой кнопкой мыши по вершине или отображаю информацию с помощью всплывающей подсказки, которая появляется, когда я перемещаю мышь по каждой вершине. Я попытался установить атрибуты для вершины, но не могу найти способ их отображения.


r igraph vertex-attributes tkplot
person A. F.    schedule 15.11.2016    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Я не знаю насчет 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")

введите здесь описание изображения

person lukeA    schedule 15.11.2016
comment
Спасибо, Люк, теперь я пытаюсь преобразовать информацию для использования в visNetwork, я скоро дам вам знать. - person A. F.; 15.11.2016
comment
Теперь бьюсь над тем, чтобы понять, как увеличить размер окна дисплея - person A. F.; 15.11.2016
comment
Увеличение/уменьшение с помощью мыши? - person lukeA; 15.11.2016
comment
Когда график был нарисован в веб-браузере, он использует только его часть, половину размера полной страницы, поэтому я хочу увеличить пространство, где будет отображаться график. - person A. F.; 15.11.2016
comment
Вы можете добавить %>% visOptions(width = "1600", height = "1200") или что-то подобное. - person lukeA; 15.11.2016
comment
Отлично, это сработало, не могли бы вы поставить официальный ответ, чтобы я мог назвать его хорошим ответом? - person A. F.; 17.11.2016
comment
точно, только что добавил - person lukeA; 17.11.2016