visNetwork is a R package for network visualization, using vis.js javascript library (https://visjs.org). All the remarks and bugs returns are welcome on github : https://github.com/datastorm-open/visNetwork.
visNetwork needs at least two informations :
require(visNetwork, quietly = TRUE) # minimal example nodes <- data.frame(id = 1:3) edges <- data.frame(from = c(1,2), to = c(1,3)) visNetwork(nodes, edges, width = "100%")
Besides the help R functions, a vignette is available, and you can access and read the full javascript API :
# javascript api visDocumentation() vignette("Introduction-to-visNetwork") # with CRAN version # shiny examples shiny::runApp(system.file("shiny", package = "visNetwork"))
Or visit our online documentation : http://datastorm-open.github.io/visNetwork/.
nodes <- data.frame(id = 1:10, label = paste("Node", 1:10), # add labels on nodes group = c("GrA", "GrB"), # add groups on nodes value = 1:10, # size adding value shape = c("square", "triangle", "box", "circle", "dot", "star", "ellipse", "database", "text", "diamond"), # control shape of nodes title = paste0("<p><b>", 1:10,"</b><br>Node !</p>"), # tooltip (html or character) color = c("darkred", "grey", "orange", "darkblue", "purple"),# color shadow = c(FALSE, TRUE, FALSE, TRUE, TRUE)) # shadow head(nodes)
edges <- data.frame(from = sample(1:10, 8), to = sample(1:10, 8), label = paste("Edge", 1:8), # add labels on edges length = c(100,500), # length arrows = c("to", "from", "middle", "middle;to"), # arrows dashes = c(TRUE, FALSE), # dashes title = paste("Edge", 1:8), # tooltip (html or character) smooth = c(FALSE, TRUE), # smooth shadow = c(FALSE, TRUE, FALSE, TRUE)) # shadow head(edges)
visNetwork(nodes, edges, width = "100%")
nodes <- data.frame(id = 1:5, group = c(rep("A", 2), rep("B", 3))) edges <- data.frame(from = c(2,5,3,3), to = c(1,2,4,2)) visNetwork(nodes, edges, width = "100%") %>% visNodes(shape = "square") %>% # square for all nodes visEdges(arrows ="to") %>% # arrow "to" for all edges visGroups(groupname = "A", color = "darkblue") %>% # darkblue for group "A" visGroups(groupname = "B", color = "red") # red for group "B"
Configuration options are available in visOptions, visInteraction, visLayout, visHierarchicalLayout, visPhysics :
nb <- 10 nodes <- data.frame(id = 1:nb, label = paste("Label", 1:nb), group = sample(LETTERS[1:3], nb, replace = TRUE), value = 1:nb, title = paste0("<p>", 1:nb,"<br>Tooltip !</p>"), stringsAsFactors = FALSE) edges <- data.frame(from = trunc(runif(nb)*(nb-1))+1, to = trunc(runif(nb)*(nb-1))+1, value = rnorm(nb, 10), label = paste("Edge", 1:nb), title = paste0("<p>", 1:nb,"<br>Edge Tooltip !</p>"))
It's possible to add more custom legend on nodes / edges ! Default on groups (like in previous versions) :
visNetwork(nodes, edges, width = "100%") %>% visLegend()
Or passing data :
visNetwork(nodes, edges, width = "100%") %>% visLegend(useGroups = FALSE, addNodes = data.frame(label = "Nodes", shape = "circle"), addEdges = data.frame(label = "link", color = "black"))
You can highlight nearest nodes and edges clicking on a node with highlightNearest option :
visNetwork(nodes, edges, width = "100%") %>% visOptions(highlightNearest = TRUE)
It's now possible to control the degree of depth (visNetwork >= 0.1.2) :
visNetwork(nodes, edges, width = "100%") %>% visOptions(highlightNearest = list(enabled =TRUE, degree = 2))
You can also select nodes by id/label with a list with nodesIdSelection :
visNetwork(nodes, edges, width = "100%") %>% visOptions(highlightNearest = TRUE, nodesIdSelection = TRUE)
And select some nodes by the values of a column using selectedBy option :
# can be the column you want nodes$sel <- sample(c("sel1", "sel2"), nrow(nodes), replace = TRUE) visNetwork(nodes, edges, width = "100%") %>% visOptions(selectedBy = "sel")
nodes <- data.frame(id = 1:nb, label = paste("Label", 1:nb), group = sample(1:nb, nb, replace = TRUE), value = 1:nb, title = paste0("<p>", 1:nb,"<br>Tooltip !</p>"), stringsAsFactors = FALSE) edges <- data.frame(from = trunc(runif(nb)*(nb-1))+1, to = trunc(runif(nb)*(nb-1))+1, title = paste0("<p>", 1:nb,"<br>Edge Tooltip !</p>"))
visNetwork(nodes, edges, width = "100%") %>% visEdges(arrows = 'from')
vis.js propose some navigation tools :
visNetwork(nodes, edges, width = "100%") %>% visInteraction(navigationButtons = TRUE)
And some data manipulation tools :
visNetwork(nodes, edges, width = "100%") %>% visOptions(manipulation = TRUE)
You can use and control hierarchical layout with visHierarchicalLayout and visLayout :
nodes <- data.frame(id = 1:7) edges <- data.frame( from = c(1,2,2,2,3,3), to = c(2,3,4,5,6,7) )
visNetwork(nodes, edges, width = "100%") %>% visEdges(arrows = "from") %>% visHierarchicalLayout() # same as visLayout(hierarchical = TRUE) visNetwork(nodes, edges, width = "100%") %>% visEdges(arrows = "from") %>% visHierarchicalLayout(direction = "LR")
visNetwork(nodes, edges, width = "100%") %>% visInteraction(dragNodes = FALSE, dragView = FALSE, zoomView = FALSE)
You can use Font Awesome icons using groups or nodes options. Font Awesome library (https://fontawesome.com/) is not part of default dependencies. use addFontAwesome() if needed.
# don't run here nodes <- data.frame(id = 1:3, group = c("B", "A", "B")) edges <- data.frame(from = c(1,2), to = c(2,3)) visNetwork(nodes, edges, width = "100%") %>% visGroups(groupname = "A", shape = "icon", icon = list(code = "f0c0", size = 75)) %>% visGroups(groupname = "B", shape = "icon", icon = list(code = "f007", color = "red")) %>% visLegend() %>% addFontAwesome()
New visTree function allows to visualize and customize a rpart classification and regression tree. Have a look to visTreeEditor to edity and get back network, or to visTreeModuleServer to use custom tree module in R.
library(rpart) # Complex tree data("solder") res <- rpart(Opening~., data = solder, control = rpart.control(cp = 0.00005)) visTree(res, height = "800px", nodesPopSize = TRUE, minNodeSize = 10, maxNodeSize = 30)
With visNetworkOutput and renderVisNetwork. Using with shiny, and enabled options nodesIdSelection, you can access to new input with current selection value. Morevoer, you can do a lot of things with visNetworkProxy
output$mynetwork <- renderVisNetwork({... visOptions(nodesIdSelection = TRUE)}) # created input$mynetwork_selected
And with selectedBy, new input input$mynetwork_selectedBy.
You can also control :
network <- visNetwork(nodes, edges, width = "100%") visSave(network, file = "network.html")
visNetwork(dot = 'dinetwork {1 -> 1 -> 2; 2 -> 3; 2 -- 4; 2 -> 1 }', width = "100%")
# don't run here visNetwork(gephi = 'WorldCup2014.json')
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.