Javascript highcharts mapbubble显示3次

我用highcharter软件包（用于R）制作了这张地图，这是一个highcharts包装器，但仍然有3个bubbleLegend，我只想要其中一个

如果有人能帮我，也许是js？ 在js中甚至有一个commit解决了这个问题：

库（highcharter）
图书馆（dplyr）
多年筹资框架%
hc_添加_系列（数据=mydf，type=“mapbuble”，name=“地震”，maxSize='12%”），%>%
hc_工具提示（useHTML=T，headerFormat=''，pointFormat=paste（'Location:{point.place}
Part:{point.Part}
magnity:{point.z}'））%>%
hc_图例（启用=真，
title=列表（text=“Mon titre”），
bubbleLegend=列表(
启用=真，
borderColor='#000000'，
边框宽度=3，
颜色='#8bbc21'，
connectorColor='#000000'，
sizeBy=“z”，
范围=列表(
名单(
值=100
)
,
名单(
值=70
),
名单(
值=40
),
名单(
值=10
)
)
),
align=“bottom”，layout=“horizontal”，
floating=TRUE，valueDecimals=0，
SYMBOL高度=11，SYMBOL宽度=11，SYMBOL半径=0）%>%
hc_色轴(
数据类=颜色类（中断=c（0,10,20,100），
颜色=c（“红色”、“绿色”、“蓝色”）
)) %>% 
hc_标题（text=“全球地震活动”）%%>%
hc\U地图导航（启用=T）%>%
hc_导出（启用=真）

---

您提供链接的问题已修复，并于2019年2月并入图书馆。在我的环境中，我安装了Highcharter，它使用2019年9月发布的Highcharts

7.2.0

包括修复程序，它在我的环境中运行良好。我只能看到一个泡泡传奇

您应该确保使用的是最新版本的Highcharter。您可以通过鼠标右键单击图表来检查版本，然后

检查元素

然后在这里找到版本

---

让我知道您使用的是哪一个。

“使用Highcharts 7.0.1创建”，但我使用的是highcharter的最新版本（0.7.0）。那么这是否意味着我必须等待highcharter支持highcharts 7.2.0？您能告诉我您使用的是哪一版本的highcharter吗？那么您已经得到了答案；）7.0.1是从2018年开始的，这就是为什么你有3个泡沫传说。我不知道怎么做，但你应该以某种方式更新你的highcharter。可能卸载该软件包并重新安装。我如何检查highcharter版本？在这里我将尝试卸载/安装

library(highcharter)
library(dplyr)

mydf <- data.frame(
  lat = c(-7.1871, 36.95733, 17.9356, -20.4379, 30.2496, -54.9593,
          18.0365, 17.9688, 18, 18.005, 17.9538),
  lon = c(129.3989, -121.576, -66.6961, -68.773, 138.6162, -128.3548,
          -66.8143, -66.9705, -66.7603, -66.7765, -66.8265),
  z = c(4.5, 2.77, 4.1, 5.2, 4.5, 5.1, 2.52, 3.7, 2.68, 2.71, 2.88),
  part = c(10,15,8,20,30,12,5,17,21,9,11)
)

mydf <- mydf %>% 
  mutate(color = case_when(
    part < 10 ~ "red",
    part < 20 ~ "green",
    TRUE ~ "blue"
  ))

hcmap() %>% 
  hc_add_series(data = mydf, type = "mapbubble", name = "EarthQuake", maxSize = '12%') %>% 
  hc_tooltip(useHTML = T,headerFormat='',pointFormat = paste('Location :{point.place}<br> Part: {point.part} <br> Magnitude : {point.z}')) %>% 
  hc_legend(enabled = TRUE,
            title = list(text = "Mon titre"),
            bubbleLegend = list(
              enabled = TRUE,
              borderColor = '#000000',
              borderWidth = 3,
              color = '#8bbc21',
              connectorColor = '#000000',
              sizeBy = "z",
              ranges = list(
                list(
                  value = 100
                  )
                ,
                list(
                  value=70
                ),
                list(
                  value= 40
                ),
                list(
                  value= 10
                )
              )
            ),
            align = "bottom", layout = "horizontal",
            floating = TRUE ,valueDecimals = 0,
            symbolHeight = 11, symbolWidth = 11, symbolRadius = 0) %>%
  hc_colorAxis(
    dataClasses = color_classes(breaks = c(0, 10, 20, 100),
                                colors = c("red","green","blue")
    )) %>% 
  hc_title(text = "Global Seismic Activity") %>% 
  hc_mapNavigation(enabled = T)%>% 
  hc_exporting(enabled = TRUE)