In jhollist/snaWeb: Internet-based Social Network Analysis

# BiocStyle::markdown(css.files = c('custom.css'))

knitr::opts_chunk$set(echo = TRUE)
library(snaWeb);
#library(networkD3);

Organizational Network Analysis

onaNetwork <- snaWeb::buildNetwork(sites='["www.saylesunchartedwaters.com"]',searchtype = "linked")
onaNetwork <- snaWeb:::graphMetrics(onaNetwork)

Network Visualization

Network visualization is based on the networkD3 package

networkD3::forceNetwork(
  Links = data.frame(from=onaNetwork$edges$node_from-1,to=onaNetwork$edges$node_to-1),
  Nodes = data.frame(id=onaNetwork$nodes$id-1,label=onaNetwork$nodes$name),
  Source="from", Target="to",NodeID = "label",Group = "label",fontSize=12, zoom=T, legend=F,
  opacity = 0.8, charge=-300, width = 600, height = 400
)