Highcharts + R:自动显示工具提示值(以百万/十亿等为单位)

Question

HighCharter(用于在R中显示Highcharts图的R包装器(确实会根据值自动调整轴标签，例如405将显示为405，而3'000'000将显示为3M。

我想为显示的工具提示重现这一点。

本文概述了如何直接在Highcharts中执行此操作。但是，我无法使用HighCharter重现这一点。

相关：

• 高图表工具提示格式 百万亿

• JS小提琴：http://jsfiddle.net/BlackLabel/ynCKW/104/

我错过了什么？

chart_data <- tibble(
date_var = c(seq(from = as.Date('2019-09-10'), to = as.Date('2019-09-15'), by = 1))
, value = c(2304, 50000, 678900, 98457, 124684, 249547)
)
hchart(chart_data, type = 'line', hcaes(x = date_var, y = value)) %>% 
hc_tooltip(formatter = JS(
"function() {
var axis = this.series.yAxis;
return axis.defaultLabelFormatter.call({
axis: axis,
value: this.y
});
}"
))

重要提示：它似乎适用于某些价值观，但并非全部。例如，使用上述数据，我获得了第 2 个和第 3 个日期的正确工具提示标签，但所有其他日期都显示原始数字。

Answer 1

在您提供链接的相关 SO 问题中，假设是末尾有零 (0( 的短数字。只需使用 @Pawe ł Fus 答案中的先前代码：

formatter: function() {
var ret = '',
multi,
axis = this.series.yAxis,
numericSymbols = ['k', 'M', 'G', 'T', 'P', 'E'],
i = numericSymbols.length;
while (i-- && ret === '') {
multi = Math.pow(1000, i + 1);
if (axis.tickInterval >= multi && numericSymbols[i] !== null) {
ret = Highcharts.numberFormat(this.y / multi, -1) + numericSymbols[i];
}
}
return ret;
}

js小提琴：https://jsfiddle.net/BlackLabel/yrb7gzap

此致敬意！