Untitled

Load package

library(networkD3)

# Create fake data
src <- c("A", "A", "A", "A",
         "B", "B", "C", "C", "D")
target <- c("B", "C", "D", "J",
            "E", "F", "G", "H", "I")
networkData <- data.frame(src, target)

# Plot
simpleNetwork(networkData)

# Load data
data(MisLinks)
data(MisNodes)

# Plot
forceNetwork(Links = MisLinks, Nodes = MisNodes,
             Source = "source", Target = "target",
             Value = "value", NodeID = "name",
             Group = "group", opacity = 0.8)

# Load energy projection data
library(RCurl)

## Loading required package: bitops

URL <- "https://raw.githubusercontent.com/christophergandrud/networkD3/master/JSONdata/energy.json"
Energy <- getURL(URL, ssl.verifypeer = FALSE)

# Convert to data frame
EngLinks <- JSONtoDF(jsonStr = Energy,
                     array = "links")
EngNodes <- JSONtoDF(jsonStr = Energy,
                     array = "nodes")

# Plot
sankeyNetwork(Links = EngLinks, Nodes = EngNodes,
              Source = "source", Target = "target",
              Value = "value", NodeID = "name",
              width = 700, fontSize = 12, nodeWidth = 30)