require(visNetwork, quietly = TRUE)
Warning: package 'visNetwork' was built under R version 4.3.3
# minimal example
<- data.frame(id = 1:9,
nodes label = c("Seva", "Social Network Analysis", "Analytical Sociology", "Virtual Labs",
"Deployment", "Design of Experiments", "ERGMs", "DyNAMs", "Micro-Macro"),
level = c(1, 2, 2, 2, 3, 3, 3, 3, 3))
<- data.frame(from = c(1,1, 1, 4, 4, 2, 2, 3), to = c(2, 3, 4, 5, 6, 7, 8, 9))
edges visNetwork(nodes, edges, width = "100%") |>
visEdges(arrows = "to") |>
visHierarchicalLayout()