首页 > 解决方案 > highcharts mapbubble 显示 3 次

问题描述

我使用 highcharts 包(用于 R)制作了这张地图,它是一个 highcharts 包装器,但仍然有 3 个bubbleLegend,我只想要其中一个

如果有人可以帮助我,也许在 js 中?甚至有一个提交解决了 js 中的问题:https ://github.com/highcharts/highcharts/commit/63dc48767b3aa00b846631084b286f6605342e22

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) 

在此处输入图像描述

标签: javascriptrchartshighchartsmaps

解决方案


7.2.0您提供链接的问题已于 2019 年 2 月修复并合并到库中。在我的环境中,我安装了使用2019 年 9 月发布的Highcharts 的 Highcharter。https: //www.highcharts.com/blog/changelog/

该修复程序已包含在内,并且在我的环境中运行良好。我只能看到 1 个气泡图例。

在此处输入图像描述

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

在此处输入图像描述

然后在这里找到版本

在此处输入图像描述

让我知道你正在使用哪一个。


推荐阅读