在e_visual_map函数中添加1000个逗号分隔符(echarts4r包)

Question

我正在使用R Studio中的echarts4r包制作一个地图，并且我正在设置可视化地图中显示的数字值的格式。

data %>%
  e_charts(region) %>%
  e_map_register("NZ", nz_json) %>%
  e_map(visitors, map = "NZ") %>%
  e_visual_map(
    visitors,
    top = "20%",
    left = "0%",
    inRange = list(color = c("#3366FF","#6699FF", "#66CCFF", "#33CCFF")),
    type = "piecewise",
    splitList = list(
      list(min = 100000),
      list(min = 40000, max = 100000),
      list(min = 5000, max = 40000),
      list(value = 0)
    #),
    )) %>%
    #formatter =  htmlwidgets::JS("
  #function(params){
   # return(echarts.format.addCommas(params.value)) }")) %>%
  e_tooltip(formatter = htmlwidgets::JS("
                         function(params){
                        return('<strong>' + params.name + 
                     '</strong><br />Total: ' +  echarts.format.addCommas(params.value)) }"))

我成功地将一个逗号分隔符添加到了e_tooltip的数据格式中，但由于我对javascript没有任何知识，所以对于e_visual_map，我做得并不顺利。如果可能的话，我还想将的悬停颜色从黄色(在屏幕截图中可以看到)更改为不同的颜色。

e_map如下：

​

​

任何帮助都将不胜感激。

谢谢。

Answer 1

更新了！经过大量的挖掘，我找到了如何为e_visual_map添加数千个逗号分隔符。这可能不是最充分和最快的方式，但它的工作和我很容易理解！

data %>%
  e_charts(region) %>%
  e_map_register("NZ", nz_json) %>%
  e_map(visitors, map = "NZ") %>%
  e_visual_map(
    visitors,
    top = "20%",
    left = "0%",
    inRange = list(color = c("#3366FF","#6699FF", "#66CCFF", "#33CCFF")),
    type = "piecewise",
    splitList = list(
      list(min = 100000),
      list(min = 40000, max = 100000),
      list(min = 5000, max = 40000),
      list(value = 0)
    ),
    formatter = htmlwidgets::JS("function(value, index, values){
                if(index == 'Infinity'){
                return ' > ' + value.toLocaleString()
                }else if (value != 0){
                return value.toLocaleString() + ' - ' + index.toLocaleString()
                }else{
                return value.toLocaleString()
                }
            }")) %>%
  e_tooltip(formatter = htmlwidgets::JS("
                         function(params){
                        return('<strong>' + params.name + 
                     '</strong><br />Total: ' +  echarts.format.addCommas(params.value)) }"))

我还没有弄清楚如何改变悬停颜色，所以如果有人想分享他们的答案，请这样做。

谢谢。