nnodes <- 200
nnedges <- 400
nodes <- data.frame(id = 1:nnodes)
edges <- data.frame(from = sample(1:nnodes, nnedges, replace = T),
to = sample(1:nnodes, nnedges, replace = T))
# with defaut layout
visNetwork(nodes, edges) %>%
visIgraphLayout() %>%
visNodes(size = 10)
# use full space
visNetwork(nodes, edges) %>%
visIgraphLayout(type = "full") %>%
visNodes(size = 10)
# in circle ?
visNetwork(nodes, edges) %>%
visIgraphLayout(layout = "layout_in_circle") %>%
visNodes(size = 10) %>%
visOptions(highlightNearest = list(enabled = T, hover = T),
nodesIdSelection = T)
# keep physics with smooth curves ?
visNetwork(nodes, edges) %>%
visIgraphLayout(physics = TRUE, smooth = TRUE) %>%
visNodes(size = 10)
# fix radomSeed to keep position
visNetwork(nodes, edges) %>%
visIgraphLayout(randomSeed = 123) %>%
visNodes(size = 10)
visNetwork(nodes, edges) %>%
visIgraphLayout(randomSeed = 123) %>%
visNodes(size = 10)
Run the code above in your browser using DataLab