将千个逗号分隔符添加到e_visual_map函数（echarts4r包）

我正在使用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_图表（区域）%>%
e_映射寄存器（“NZ”，NZ_json）%>%
电子地图（访客，map=“NZ”）%>%
电子视觉地图(
来访者，
top=“20%”，
left=“0%”，
在范围=列表中（颜色=c（“#3366FF”、“#6699FF”、“#66CCFF”、“#33CCFF”），
type=“分段”，
拆分列表=列表(
列表（最小值=100000），
列表（最小值为40000，最大值为100000），
列表（最小值为5000，最大值为40000），
列表（值=0）
#),
)) %>%
#格式化程序=htmlwidgets:：JS（“
#函数（参数）{
#返回值（echart.format.addCommas（params.value））}）%>%
工具提示（格式化程序=htmlwidgets:：JS（“
函数（参数）{
返回（“”+params.name+
“
总计：“+echart.format.addCommas（params.value））}”）

我已经设法在

e_工具提示

中的数据格式中添加了一个逗号分隔符，但是对于

e_视觉地图

，我没有太多的运气，因为我对javascript没有任何知识。如果可能的话，我还想将悬停颜色从黄色（如屏幕截图所示）更改为其他颜色

电子地图如下：

任何帮助都将不胜感激

---

谢谢。

更新！经过大量的挖掘，我已经知道了如何在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)) }"))

数据%>%
e_图表（区域）%>%
e_映射寄存器（“NZ”，NZ_json）%>%
电子地图（访客，map=“NZ”）%>%
电子视觉地图(
来访者，
top=“20%”，
left=“0%”，
在范围=列表中（颜色=c（“#3366FF”、“#6699FF”、“#66CCFF”、“#33CCFF”），
type=“分段”，
拆分列表=列表(
列表（最小值=100000），
列表（最小值为40000，最大值为100000），
列表（最小值为5000，最大值为40000），
列表（值=0）
),
formatter=htmlwidgets:：JS（“函数（值、索引、值））{
如果（索引==“无穷大”）{
返回'>'+value.toLocaleString（）
}else if（值！=0）{
返回值.tolocalString（）+'-'+index.tolocalString（）
}否则{
返回值.toLocaleString（）
}
}")) %>%
工具提示（格式化程序=htmlwidgets:：JS（“
函数（参数）{
返回（“”+params.name+
“
总计：“+echart.format.addCommas（params.value））}”）

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

---

谢谢。

更新！经过大量的挖掘，我已经知道了如何在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)) }"))

数据%>%
e_图表（区域）%>%
e_映射寄存器（“NZ”，NZ_json）%>%
电子地图（访客，map=“NZ”）%>%
电子视觉地图(
来访者，
top=“20%”，
left=“0%”，
在范围=列表中（颜色=c（“#3366FF”、“#6699FF”、“#66CCFF”、“#33CCFF”），
type=“分段”，
拆分列表=列表(
列表（最小值=100000），
列表（最小值为40000，最大值为100000），
列表（最小值为5000，最大值为40000），
列表（值=0）
),
formatter=htmlwidgets:：JS（“函数（值、索引、值））{
如果（索引==“无穷大”）{
返回'>'+value.toLocaleString（）
}else if（值！=0）{
返回值.tolocalString（）+'-'+index.tolocalString（）
}否则{
返回值.toLocaleString（）
}
}")) %>%
工具提示（格式化程序=htmlwidgets:：JS（“
函数（参数）{
返回（“”+params.name+
“
总计：“+echart.format.addCommas（params.value））}”）

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

谢谢