我想在R中做一个Map，当缩小时，它会聚集点。我使用highcharter包。
这是一个截图，我的目标，从这个演示。

在Highcharts中添加此功能的模块称为marker-clusters，我可以使用hc_add_dependency()加载。但是我在弄清楚为这个添加的模块设置值的语法时遇到了麻烦。我一直在尝试使用marker-clusters模块的an example jsFiddle，但我不确定如何将JS语法转换为R。
这是我目前所拥有的，尽管它根本没有呈现聚类。它正确显示Map点和标签，但放大/缩小不会转换为带有计数的群集气泡。

library(highcharter)

hcmap("custom/world-highres2", showInLegend = FALSE) |>
  hc_add_dependency("modules/marker-clusters.js") |> 
  hc_add_series(
    data = data, 
    type = "mappoint",
    name = "Research groups"
  ) |>
  hc_plotOptions(cluster = list(
    enabled = TRUE,
    allowOverlap = TRUE,
    animation = list(duration = 450),
    layoutAlgorithm = list(type = "grid",
                           gridSize = 10),
    zones = c(list(from = 1, to = 4, marker = list(radius = 13))))) |> 
  hc_mapNavigation(enabled = TRUE)

这是我得到的输出：

我发现了一些使用hc_add_dependency()的R示例，看起来来自所添加模块的任何附加选项都可以作为附加参数直接包含到hc_add_series()中。但当我尝试时，Map只是完全停止渲染点。因此，我目前尝试将集群选项放在单独的hc_plotOptions()调用中，但这也不起作用。
这是我的位置数据的一个子集，用于data数据集。

data <- structure(list(name = c("University of Vermont", "Imperial College London", 
"University of York", "The Open University, UK", "Texas State University", 
"Duke University", "Manchester Metropolitan University", "Northwestern University", 
"University of Tennessee"), address = c("Burlington, VT 05405, USA", 
"Exhibition Rd, South Kensington, London SW7 2BX, UK", "Heslington, York YO10 5DD, UK", 
"Walton Hall, Kents Hill, Milton Keynes MK7 6AA, UK", "601 University Dr, San Marcos, TX 78666, USA", 
"Durham, NC 27708, USA", "All Saints Building, All Saints, Manchester M15 6BH, UK", 
"633 Clark St, Evanston, IL 60208, USA", "Knoxville, TN 37996, USA"
), lat = c(44.4778528, 51.4988222, 53.9461089, 52.0249295, 29.888411, 
36.0014258, 53.4703485, 42.0564594, 35.9544013), lon = c(-73.1964637, 
-0.1748735, -1.0517718, -0.7081895, -97.938351, -78.9382286, 
-2.2392999, -87.675267, -83.9294564)), row.names = c(NA, -9L), spec = structure(list(
    cols = list(name = structure(list(), class = c("collector_character", 
    "collector")), address = structure(list(), class = c("collector_character", 
    "collector")), lat = structure(list(), class = c("collector_double", 
    "collector")), lon = structure(list(), class = c("collector_double", 
    "collector"))), default = structure(list(), class = c("collector_guess", 
    "collector")), delim = ","), class = "col_spec"), problems = <pointer: 0x5637c9f857d0>, class = c("spec_tbl_df", 
"tbl_df", "tbl", "data.frame"))

以下是我一直试图复制的jsFiddle的设置：

plotOptions: {
  mappoint: {
    cluster: {
      enabled: true,
      allowOverlap: false,
      animation: {
        duration: 450
      },
      layoutAlgorithm: {
        type: 'grid',
        gridSize: 70
      },
      zones: [{
        from: 1,
        to: 4,
        marker: {
          radius: 13
        }
      }, {
        from: 5,
        to: 9,
        marker: {
          radius: 15
        }
      }, {
        from: 10,
        to: 15,
        marker: {
          radius: 17
        }
      }, {
        from: 16,
        to: 20,
        marker: {
          radius: 19
        }
      }, {
        from: 21,
        to: 100,
        marker: {
          radius: 21
        }
      }]
    }
  }
}

注意：我不确定这个子集中是否有足够的点来很好地演示缩小的聚类效果，但我希望有人能告诉我正确的语法，我可以从那里开始。
我想这是一个简单的修复，但我是新的工作与Highcharts在R，任何帮助将不胜感激！