Есть ли хитрость в размещении текста на диаграмме Санки, отображаемой с помощью networkD3? Я хотел бы, чтобы значения конечных точек отображались в виде текста справа от их полей. Я понимаю, что при наведении курсора на прямоугольники отображается значение, но по мере того, как блоки уменьшаются, во многих случаях было бы намного проще изобразить информацию, если бы значения всегда были видны сбоку.

Вот пример; Я смог взломать его, добавив значения как часть меток, но было бы намного лучше, чтобы значения отображались справа от диаграммы.

library(networkD3)
library(data.table)
set.seed(1999)
links <- data.table(
  src = rep(0:4, times=c(1,1,2,3,5)),
  target = sample(1:11, 12, TRUE),
  value = sample(100, 12)
)[src < target, ]  # no loops
nodes <- data.table(name=LETTERS[1:12])

## Need to hover to get counts
sankeyNetwork(Links=links, Nodes=nodes, Source='src', Target='target',
  Value='value', NodeID='name', fontSize=16)

## Add text to label
txt <- links[, .(total = sum(value)), by=c('target')]
nodes[txt$target+1L, name := paste0(name, ' (', txt$total, ')')]

## Displays the counts as part of the labels
sankeyNetwork(Links=links, Nodes=nodes, Source='src', Target='target',
  Value='value', NodeID='name', fontSize=16, width=600, height=300)