如何通过checkboxGroupInput实现Leaflet地图点位组显隐切换

完全可以通过自定义checkboxGroupInput控制Leaflet点位组的显隐，不需要依赖Leaflet自带的图层控制器，核心是用Leaflet代理提供的showGroup()和hideGroup()方法直接操作前端已渲染的图层，不需要每次切换都重绘所有点位，性能更好。

核心实现逻辑 #

• 给每个点位组设置和复选框选项值一一对应的group参数
• 地图初始化时一次性把所有点位组渲染完成，不添加自带的addLayersControl控件
• 监听自定义复选框组的输入变化，对选中值对应的图层组调用showGroup()，对未选中的组调用hideGroup()

可运行完整代码 #

library(shiny)
library(leaflet)
library(dplyr)

ui <- fluidPage(
  # 预留自定义复选框渲染位置
  uiOutput("quakesToggle"),
  leafletOutput("mymap",height = '100vh')
)

server <- function(input, output) {
  data(quakes)
  # 提前处理点位分组，组名和复选框选项值保持完全一致
  quakes$group_id <- ifelse(quakes$mag >=5, "quakes1", "quakes2")
  
  # 渲染自定义切换复选框
  output$quakesToggle <- renderUI({
    checkboxGroupInput(
      inputId = 'quakesToggle', 
      label = 'Select magnitude:',
      choices  = list('Mag >=5 (red)'='quakes1', 'Mag <5 (green)'='quakes2'),
      selected = c("quakes1", "quakes2") # 默认全选，和初始地图状态对齐
    )
  })
  
  # 初始化地图，一次性加载所有点位组
  output$mymap <- renderLeaflet({
    leaflet(data = quakes) %>% 
      setView(lng = quakes[1, 'long'],
              lat = quakes[1, 'lat'],
              zoom=5) %>%
      addTiles() %>%
      # 加载第一组点位
      addCircleMarkers(
        data = ~.x[.x$group_id == "quakes1", ],
        ~long, ~lat,
        radius=3,
        group = 'quakes1',
        stroke=FALSE,
        fillOpacity=0.5,
        color = 'red'
      ) %>%
      # 加载第二组点位
      addCircleMarkers(
        data = ~.x[.x$group_id == "quakes2", ],
        ~long, ~lat,
        radius=3,
        group = 'quakes2',
        stroke=FALSE,
        fillOpacity=0.5,
        color = 'green'
      )
  })
  
  # 监听复选框变化，切换图层显隐
  observeEvent(input$quakesToggle, {
    selected_groups <- input$quakesToggle
    all_groups <- c("quakes1", "quakes2")
    hide_groups <- setdiff(all_groups, selected_groups)
    
    leafletProxy('mymap') %>%
      hideGroup(hide_groups) %>%
      showGroup(selected_groups)
  }, ignoreNULL = FALSE) # 兼容全不选场景，避免空值报错
}

shinyApp(ui, server)

注意事项 #

• 不要在切换时调用clearShapes()重绘所有点位，会导致切换卡顿、点位闪烁，直接调用显隐方法是操作前端已渲染图层，无重绘开销
• 点位的group命名必须和复选框选项值完全一致才能做直接映射，如果是动态生成的多组点位，只需要同步生成复选框选项和group名称即可，逻辑完全通用
• 监听事件加ignoreNULL = FALSE参数，可以兼容复选框全不选的场景，不会因为输入值为NULL触发报错

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