R Sankey Highchart: настройка всплывающей подсказки для узла с использованием данных из другой переменной

Question

Я пытаюсь построить диаграмму Санки с highcharter, и мне нужно показать в подсказке узла сумму переменной, скажем y.Например, для узла "A" сумма y будет равна 62 (34 + 28).

Я пробовал это, но это не будет работать

test <- data.frame(a = c("A", "B", "A", "B"), 
                   b = c("C", "C", "D", "D"), 
                   x = c(4, 9, 2, 2), 
                   y = c(34, 29, 28, 26)) 

hchart(test, "sankey", nodeWidth = 10, hcaes(from = a, to = b, weight = x)) %>% 
 hc_tooltip(nodeFormat = "{y.sum}")

Спасибо

Answer 1

Приведенный ниже код вычисляет сумму y и показывает ее во всплывающей подсказке.

library(highcharter)    
test <- data.frame(a = c("A", "B", "A", "B"), 
                   b = c("C", "C", "D", "D"), 
                   x = c(4, 9, 2, 2), 
                   y = c(34, 29, 28, 26))   

hchart(test, "sankey", nodeWidth = 10, hcaes(from = a, to = b, weight = x)) %>% 
  hc_tooltip(nodeFormatter = JS("
    function() {
      // Function for y sum calculation
      function getSum(arr, val) {
        var idx = [], i, sumy=0;
        for (i = 0; i < arr.length; i++) {
          if (arr[i].from==val | arr[i].to==val) {
            sumy = sumy + arr[i].y
          }
        }
        return(sumy)
      }
      // Get y sum and show it in the tooltip       
      sumy = getSum(this.series.options.data, this.name);
      var result = 'Node: ' + this.name + 
                   '<br>Sum y: <b>' + sumy + '</b>';
      return result;
    }")) %>%
  hc_tooltip(pointFormatter = JS("
    function() {
      // Function for y sum calculation
      function getSum(arr, val) {
        var idx = [], i, sumy=0;
        for (i = 0; i < arr.length; i++) {
          if (arr[i].a==val) {
            sumy = sumy + arr[i].y
          }
        }
        return(sumy)
      }
      // Get y sum and show it in the tooltip       
      sumy = getSum(this.series.options.data, this.from);
      var result = this.from + ' -> ' + this.to + 
                   '<br>Sum y: <b>' + sumy + '</b>';
      return result;
    }")
  )