I was following

saved as png using webshot::webshot:

code:

library(networkD3)

# prepare data
links <- data.frame(
  source = c("group_A","group_A", "group_B", "group_C", "group_C", "group_E"), 
  target = c("group_C","group_D", "group_E", "group_F", "group_G", "group_H"), 
  value = c(2,3, 2, 3, 1, 3)
)

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

# sankey network
sankey = sankeyNetwork(Links = links,
                       Nodes = nodes,
                       Source = "IDsource",
                       Target = "IDtarget",
                       Value = "value",
                       NodeID = "name",
                       fontSize = 20)

# display values
js_string <-
  '
  function(el, x){
    d3.select(el).selectAll(".node text")
      .text(d => d.name   " (n = "   d.value   ")");
  }
  '
sankey <- htmlwidgets::onRender(sankey, js_string)

# save plot
saveNetwork(sankey, "sn.html")

# save as png
webshot::webshot("sn.html", "sn.png")

CodePudding user response：

The issue is with the PhantomJS browser that webshot relies on, which is not actively maintained and archived as-is years ago. See here. If you use webshot2 instead, it produces your expected output. Not sure what the exact cause is, however.

library(networkd3) 
library(webshot2)

# prepare data
links <- data.frame(
  source = c("group_A","group_A", "group_B", "group_C", "group_C", "group_E"), 
  target = c("group_C","group_D", "group_E", "group_F", "group_G", "group_H"), 
  value = c(2,3, 2, 3, 1, 3)
)

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

# sankey network
sankey = sankeyNetwork(Links = links,
                       Nodes = nodes,
                       Source = "IDsource",
                       Target = "IDtarget",
                       Value = "value",
                       NodeID = "name",
                       fontSize = 20)

# display values
js_string <-
  '
  function(el, x){
    d3.select(el).selectAll(".node text")
      .text(d => d.name   " (n = "   d.value   ")");
  }
  '
sankey <- htmlwidgets::onRender(sankey, js_string)

# save plot
saveNetwork(sankey, "sn.html")

# save as png
webshot2::webshot("sn.html", "sn.png")