sankey.R

library(plotly)

plot_ly(
  type = 'sankey',
  node = list(
    label =  c("a","b", "c", "d", "e", "f", "g", "h"),
    color =  c("black","black","black","black","black","black",
               "black","black"),
    pad = 15,
    thickness = 15,
    line = list(
      color = "black",
      width = 0.5
    )
  ),
  link = list(
    source =  c(0,1,1,3,3,5,5),
    target =  c(1,2,3,4,5,6,7),
    value =  c(1,0.64,0.36,.33,.67,.16,.84))
)