在 rShiny 应用程序中使用 markerClusterOptions() 时弹出传单

问题描述

我的难点是，当使用markerClusterOptions() 时，离爆炸圆最近的点无法点击。远离聚类标记的点没有问题。在下面的示例中，弹出窗口适用于 3 个稍远的标记，但不适用于最靠近圆北的标记。有没有办法设置与集群标记的最小距离或解决此问题的替代方法？

数据集的reprex

b <- structure(list(unique_id = c("jm_1987_sierraleone","jm_1987_sierraleone","jm_1987_sierraleone"),town_village = c("Yengema","Yengema","Yengema"),classification = c("mastomys natalensis","mastomys natalensis","mastomys natalensis"
                                                                                             ),assay = c("path_1_tested","path_2_tested","ab_ag_path_1_positive","ab_ag_path_2_positive"),number = c(8,8,0),pathogen_tested = c("lassa_mammarenavirus","lassa_mammarenavirus","lassa_mammarenavirus"
                                                                                                          ),pa_colour = c("#f1a340","#f1a340","#f1a340"),lat = c(`12747` = 8.33333301544189,`12748` = 8.33333301544189,`12749` = 8.33333301544189,`12750` = 8.33333301544189),lon = c(`12747` = -10.6333332061768,`12748` = -10.6333332061768,`12749` = -10.6333332061768,`12750` = -10.6333332061768)),row.names = c(NA,-4L),sf_column = "geometry",agr = structure(c(unique_id = NA_integer_,town_village = NA_integer_,classification = NA_integer_,assay = NA_integer_,number = NA_integer_,pathogen_tested = NA_integer_,pa_colour = NA_integer_,lat = NA_integer_,lon = NA_integer_),.Label = c("constant","aggregate","identity"),class = "factor"),class = "data.frame")

传单代码

leaflet() %>%
  addTiles() %>%
  setView(lng = 0,lat = 10,zoom = 5) %>%
  addCircleMarkers(data = b,fillColor = "black",fillOpacity = 0.3,stroke = F,radius = 1) %>%
  addCircleMarkers(lng = b$lon,lat = b$lat,fillColor = b$pa_colour,fillOpacity = 0.8,radius = 6,popup = paste0("Study ID: ",b$unique_id,"<br>","Rodent species: ",b$classification,"Microorganism tested: ",b$pathogen_tested,"Village/Region: ",b$town_village),clusterOptions = markerClusterOptions()) %>%
  clearControls() %>%
  addLegend("topright",title = "Presence or Absence",colors = c("#f1a340","#998ec3"),labels = c("Absence","Presence"),opacity = 0.8)

挑战的截图。

解决方法

一种选择是通过将 spiderfyDistanceMultiplier 添加到 markerClusterOptions 来增加与放置蜘蛛网标记的中心的距离，例如：

clusterOptions = markerClusterOptions(spiderfyDistanceMultiplier=1.5)

见https://github.com/Leaflet/Leaflet.markercluster#customising-the-clustered-markers