vgrabovets
10/10/2016 - 11:57 AM

sankeyNetwork

sankeyNetwork

library(networkD3)

sankeyNetwork(Links = links, Nodes = node, Source = "source",
              Target = "target", Value = "n", NodeID = "name", 
              units = "qty", fontSize = 12, nodeWidth = 5, NodeGroup = "groupId",
              LinkGroup = "new_desc", margin = list(right=0,bottom=0,left=0,top=0),
              height = 570, width = 1260, iterations = 5
              ) %>%
  saveNetwork(file = 'Net.html')