[answer] how to insert values in sankey chart?

General
,
1

You could use htmlwidgets::onRender() to inject some JavaScript to add the value to the node label...

library(dplyr)
library(networkD3)
library(htmlwidgets)
#> 
#> Attaching package: 'htmlwidgets'
#> The following object is masked from 'package:networkD3':
#> 
#>     JS

datosankey <-read.csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vS45SekhiRvzq8PXATIpG9HjwqNBloVGBuey4Zmf7eM0CPTFKGeT7ZnB_KaSKml_gPF5gzt5nHFbQUs/pub?output=csv")

datosankey$target <- paste(datosankey$target, " ", sep = "")

nodes <- data.frame(name = unique(c(datosankey$source, datosankey$target)))

datosankey$IDsource = match(datosankey$source, nodes$name) - 1
datosankey$IDtarget = match(datosankey$target, nodes$name) - 1

sankey <-
  sankeyNetwork(
    Links = datosankey,
    Nodes = nodes,
    Source = "IDsource",
    Target = "IDtarget",
    Value = "value",
    NodeID = "name",
    sinksRight = FALSE,
    nodeWidth = 60,
    fontSize = 9,
    nodePadding = 7
  )

onRender(
  x = sankey,
  jsCode = '
    function(el, x){
      d3.select(el).selectAll(".node text")
        .text(d => d.name + " (" + d3.format("(.0f")(d.value) + ")");
    }
  '
)

2

A post was merged into an existing topic: how to insert values in sankey chart?