在含州数据的highcharter美国地图添加交互点时的颜色异常问题

问题现象 #

使用highcharter制作美国各州患者数据地图，初始显示正常，但添加mappoint交互点后出现以下异常：

• 图例范围被错误修改为0-7.5k，偏离原患者数据范围
• 地图点颜色杂乱，各州颜色也被错误覆盖
• 需要将地图点统一设为黑色，仅在hover时显示点名称

解决方案 #

问题核心是新增的mappoint系列默认参与颜色轴计算，且未指定固定颜色。通过以下修改修复：

修改后的完整代码 #

# 各州患者数据框
abbr <- c("AK", "GA", "CA", "CT", "HI", "IA", "KY", "LA", "NJ", "NM", "WA", "UT")
fips <- c("02", "13", "06", "09", "15", "19", "21", "22", "34", "35", "53", "49")
V2 <- c(4, 22, 77, 16,  0,  5,  6,  9, 15,  3, 13, 22)
States<- data.frame(abbr, fips, V2)

# 中心位置数据框
name <- c("UCLA", "Stanford")
lon <- c(-118.26, -122.17)
lat <- c(34.04, 37.43)
VHL_centers <- data.frame(lon, lat, name)

# 修复后的地图代码
hcmap("https://code.highcharts.com/mapdata/countries/us/us-all.js", #Construct map
                     data = States,
                     name = "Patient number",
                     value = "V2", 
                     joinBy = c("postal-code", "abbr"),
                     borderWidth = 1,
                     borderColor = "darkred",
                     dataLabels = list(enabled = TRUE, format = "{point.properties.postal-code}"),
                     tooltip = list()) |>
  hc_legend(layout = "horizontal",
            verticalAlign = "bottom",
            align = "center",
            valueDecimals = 0,
            valueSuffix = "") |>
  hc_title(text = "VHL patients per state") |>
  hc_subtitle(text = "Source: SEER database") |>
  hc_colorAxis(stops = color_stops(colors = viridisLite::inferno(10, begin = 0.1))) |>
  hc_add_series(
    data = VHL_centers, 
    type = "mappoint",
    color = "black",  # 强制点为黑色
    colorAxis = FALSE,  # 不参与主颜色轴计算
    tooltip = list(pointFormat = "{point.name}"),  # hover仅显示名称
    marker = list(radius = 5)  # 可选：调整点大小
  )

关键修改说明 #

1. color = "black"：直接指定地图点的固定颜色为黑色，避免颜色轴影响
2. colorAxis = FALSE：禁止该系列参与主地图的颜色轴范围计算，确保图例和州颜色恢复正常
3. tooltip = list(pointFormat = "{point.name}")：配置hover时仅显示点的名称，符合需求
4. marker = list(radius = 5)：可选调整点的大小，提升视觉辨识度

内容的提问来源于stack exchange，提问作者gondolin1989