## Not run:
# # Recreate Bostock Sankey diagram: http://bost.ocks.org/mike/sankey/
# # Load energy projection data
# URL <- paste0('https://cdn.rawgit.com/christophergandrud/networkD3/',
# 'master/JSONdata/energy.json')
# energy <- jsonlite::fromJSON(URL)
#
# # Plot
# sankeyNetwork(Links = energy$links, Nodes = energy$nodes, Source = 'source',
# Target = 'target', Value = 'value', NodeID = 'name',
# units = 'TWh', fontSize = 12, nodeWidth = 30)
#
# # Colour links
# energy$links$energy_type <- sub(' .*', '',
# energy$nodes[energy$links$source + 1, 'name'])
#
# sankeyNetwork(Links = energy$links, Nodes = energy$nodes, Source = 'source',
# Target = 'target', Value = 'value', NodeID = 'name',
# LinkGroup = 'energy_type', NodeGroup = NULL)
#
# ## End(Not run)
Run the code above in your browser using DataCamp Workspace