R программирование highcharter - вычесть два значения во всплывающей подсказке - PullRequest
Новая
       15

R программирование highcharter - вычесть два значения во всплывающей подсказке

0 голосов
/ 09 июля 2020

У меня снова проблема с highcharter в R. У меня есть два значения в столбчатой ​​диаграмме с накоплением, и я хотел бы вычесть значения с помощью функции JS. Однако это не работает должным образом, поскольку некоторые значения также отрицательны. Я не знаю, как с этим справиться .. 

bs.table = data.frame(
  Closing.Date = c("Year 2012", "Year 2013", "Year 2014", "Year 2015", "Year 2016"),
  Non.Current.Assets = c(40.4, 30.3, 20.4, 34.5, 20),
  Current.Assets = c(3.2, 3.3, 2.4, 3.5, 2)
)
hc <- highchart() %>% 
  hc_chart(type = "bar") %>%
  hc_plotOptions(series = list(stacking = "normal")) %>%
  hc_xAxis(categories = bs.table$Closing.Date,
      lineColor = 'transparent',
      tickWidth = 0,
      labels = list(enable = TRUE, 
                     align = 'left',
                     x = 5,
                    style = list(fontSize = '1em',color = '#fff'))) %>%
  hc_add_series(name ="Non Current Assets",
            data = bs.table$Current.Assets,
            stack = "Assets",
            dataLabels = list(enabled = TRUE, 
                              inside = TRUE, 
                              align = "right", 
                              style = list(fontSize = '1em',color = '#fff'))) %>%
  hc_add_series(name = "Current Assets",
            data = bs.table$Non.Current.Assets,
            stack = "Assets",
            dataLabels = list(enabled = TRUE, inside = FALSE, align = "right", 
                              style = list(fontSize = '1em',color = '#fff')) ) %>%
  hc_legend(enabled = FALSE) %>%
  hc_tooltip(shared = TRUE,
          formatter=JS("function() {var s = '<b>'+ this.x +'</b>',sum = 0;$.each(this.points, function(i, point) {s += '<br/>'+ point.series.name +': '+point.y;sum -= point.y;});s += '<br/>Sum: '+sum;return s;}"))  
  hc

Любая помощь будет очень благодарна!

...