Untitled

library(networkD3)
library(dplyr)

links <- data.frame(
  source=c("Retirees", "TVs", "Actives", "Retirees", "TVs", "Actives"), 
  target=c("Funded Liability", "Funded Liability", "Funded Liability", "Benefits Cut", "Benefits Cut", "Benefits Cut"), 
  value=c(6.45, 0.15, 0.5, 0.75, 1.55, 4.9)
  )

nodes <- data.frame(name=c(as.character(links$source),
                           as.character(links$target)) %>% unique())
links$IDsource <- match(links$source, nodes$name)-1 
links$IDtarget <- match(links$target, nodes$name)-1
 
p <- sankeyNetwork(Links = links, Nodes = nodes,
              Source = "IDsource", Target = "IDtarget",
              Value = "value", NodeID = "name", fontSize = 12,
              sinksRight=FALSE)
p