如何在R语言Leaflet中仅允许激活一个图层组？

方法一：利用基础图层（baseGroups）的单选特性 #

Leaflet的基础图层控件本身自带单选逻辑——选中一个基础图层时，会自动取消其他基础图层的激活状态。如果你的互斥图层不需要和其他叠加图层共存，直接将它们放到baseGroups参数中即可：

library(leaflet)

# 模拟示例数据
party_data <- data.frame(
  lat = c(55.6761, 55.7078),
  lng = c(12.5683, 12.5972),
  party = c("Socialdemokratiet", "Konservative")
)

# 创建带单选图层的地图
leaflet(party_data) %>%
  addTiles() %>%
  # 添加第一个政党图层组
  addCircleMarkers(lng = ~lng[1], lat = ~lat[1], color = "red", group = "Socialdemokratiet") %>%
  # 添加第二个政党图层组
  addCircleMarkers(lng = ~lng[2], lat = ~lat[2], color = "blue", group = "Konservative") %>%
  # 图层控制：将政党组设为基础图层（自动单选）
  addLayersControl(
    baseGroups = c("Socialdemokratiet", "Konservative"),
    options = layersControlOptions(collapsed = FALSE)
  )

特点：实现简单，默认会选中其中一个图层；适合不需要默认全不选的场景。

方法二：自定义JavaScript实现叠加图层（overlayGroups）单选 #

如果需要保留叠加图层的特性（比如默认全不选），同时让指定组互斥，可以通过htmlwidgets::onRender()添加自定义JS逻辑，监听图层控件的点击事件，强制取消其他互斥组的激活状态：

library(leaflet)
library(htmlwidgets)

# 模拟示例数据
party_data <- data.frame(
  lat = c(55.6761, 55.7078),
  lng = c(12.5683, 12.5972),
  party = c("Socialdemokratiet", "Konservative")
)

# 创建基础地图
map <- leaflet(party_data) %>%
  addTiles() %>%
  addCircleMarkers(lng = ~lng[1], lat = ~lat[1], color = "red", group = "Socialdemokratiet") %>%
  addCircleMarkers(lng = ~lng[2], lat = ~lat[2], color = "blue", group = "Konservative") %>%
  # 保留叠加图层设置
  addLayersControl(
    overlayGroups = c("Socialdemokratiet", "Konservative"),
    options = layersControlOptions(collapsed = FALSE)
  )

# 添加自定义JS实现单选逻辑
onRender(map, '
function(el, x) {
  var map = this;
  // 定义需要互斥的图层组名称
  var exclusiveGroups = ["Socialdemokratiet", "Konservative"];
  
  // 监听图层添加/移除事件
  map.on("overlayadd overlayremove", function(e) {
    if (exclusiveGroups.includes(e.name)) {
      // 遍历其他互斥组，取消激活状态
      exclusiveGroups.forEach(function(group) {
        if (group !== e.name) {
          map.removeLayer(group);
          // 更新控件的勾选状态
          var checkbox = document.querySelector(".leaflet-control-layers-overlay input[value=\'" + group + "\']");
          if (checkbox) checkbox.checked = false;
        }
      });
    }
  });
}
')

特点：支持默认全不选的状态，也可以和其他非互斥的叠加图层共存；需要编写少量JS代码，但灵活性更高。

内容的提问来源于stack exchange，提问作者Mads F. Hove