Блог

Я создаю сетевой график с помощью R, который отлично работает. Теперь я хотел бы сделать график интерактивным, чтобы он отображал длинное описание, когда я нажимаю на ребро (ссылку). Идея состояла бы в том, чтобы предоставить сети только ссылки/края в печатном виде, а затем обратиться к онлайн-версии, которая позволила бы людям изучить описания ссылок.

Вот что у меня есть до сих пор (полностью статично):

 library(ggraph) library(igraph)  attempt=read.csv("try.csv",header=FALSE) ig lt;- graph_from_data_frame(d=attempt, directed = TRUE) ggraph(graph=ig) geom_edge_fan(aes(colour=factor(V3))) geom_node_point() geom_node_text(aes(label=name),repel = TRUE)   

Файл является

 "Trait1","Process1",1,"ref1","A very long description (ref1)" "Trait1","Process2",-1,"ref2","Another elaborate description (ref2)" "Process1","Process3",1,"ref3","Yet other descriptions (ref3)" "Process1","Process4",1,"ref3","Yet other descriptions (ref3)" "Process5","Process6",-1,"ref3","Yet other descriptions (ref3)" "Process2","Process7",1,"ref3","Yet other descriptions (ref3)" "Process2","Process8",1,"ref3","Yet other descriptions (ref3)" "Process2","Process9",1,"ref3","Yet other descriptions (ref3)" "Process7","Process10",1,"ref3","Yet other descriptions (ref3)" "Process8","Process4",-1,"ref3","Yet other descriptions (ref3)" "Process4","Process11",1,"ref3","Yet other descriptions (ref3)" "Process6","Process12",1,"ref3","Yet other descriptions (ref3)" "Process7","Process12",1,"ref3","Yet other descriptions (ref3)" "Process4","Process12",1,"ref3","Yet other descriptions (ref3)" "Process3","Process11",1,"ref3","Yet other descriptions (ref3)" "Process10","Process12",1,"ref3","Yet other descriptions (ref3)" "Process10","Process13",1,"ref3","Yet other descriptions (ref3)" "Process9","Process12",-1,"ref3","Yet other descriptions (ref3)" "Process9","Process13",-1,"ref3","Yet other descriptions (ref3)" "Process6","Process14",1,"ref3","Yet other descriptions (ref3)" "Process6","Process12",1,"ref3","Yet other descriptions (ref3)" "Process6","Process12",-1,"ref3","Yet other descriptions (ref3)" "Process6","Process13",1,"ref3","Yet other descriptions (ref3)" "Process6","Process13",-1,"ref3","Yet other descriptions (ref3)" "Process14","Outcome2",1,"ref3","Yet other descriptions (ref3)" "Process11","Outcome2",1,"ref3","Yet other descriptions (ref3)" "Process12","Outcome1",1,"ref3","Yet other descriptions (ref3)" "Process13","Outcome1",1,"ref3","Yet other descriptions (ref3)" "Process15","Process6",1,"ref3","Yet other descriptions (ref3)" "Process2","Process5",-1,"ref3","Yet other descriptions (ref3)" "Process2","Process15",1,"ref3","Yet other descriptions (ref3)" "Trait2","Process2",-1,"ref3","Yet other descriptions (ref3)" "Trait2","Process1",1,"ref3","Yet other descriptions (ref3)" "Trait3","Process2",1,"ref3","Yet other descriptions (ref3)" "Trait3","Process1",-1,"ref3","Yet other descriptions (ref3)" "Trait3","Process7",1,"ref3","Yet other descriptions (ref3)" "Trait3","Process6",-1,"ref3","Yet other descriptions (ref3)" "Trait3","Process16",-1,"ref3","Yet other descriptions (ref3)" "Process16","Process3",1,"ref3","Yet other descriptions (ref3)" "Trait3","Process17",-1,"ref3","Yet other descriptions (ref3)" "Process17","Process4",1,"ref3","Yet other descriptions (ref3)"  

Альтернативой может быть добавление коротких меток к краям (V4), которые будут расширяться с помощью V5, если на них щелкнуть.

ggraph(graph=ig) geom_edge_fan(aes(colour=factor(V3),label=V4)) geom_node_point() geom_node_text(aes(label=name),repel = TRUE)

Но я не уверен, как сделать интерактивную часть в R, и возможно ли это.