Sankeygraph.R

require(igraph)
require(googleVis)
g <- graph.tree(24, children = 4)
set.seed(123)
E(g)$weight = rpois(23, 4) + 1
edgelist <- get.data.frame(g) 
colnames(edgelist) <- c("source","target","value")
edgelist$source <- LETTERS[edgelist$source]
edgelist$target <- LETTERS[edgelist$target]

plot(
  gvisSankey(edgelist, from="source", 
             to="target", weight="value",
             options=list(
               sankey="{link: {color: { fill: '#d799ae' } },
                        node: { width: 4, 
                                color: { fill: '#a61d4c' },
                                label: { fontName: 'Times-Roman',
                                         fontSize: 14,
                                         color: '#871b47',
                                         bold: true,
                                         italic: true } }}"))
     )