R语言：Leaflet与Shiny滑块联动地图失效问题求助

问题描述 #

现有两个DataFrame：

order 数据集 #

arrivals 数据集 #

需求：

1. 用order的经纬度在Leaflet地图标记各地点；
2. 通过滑块选择Arrival_time，地图标记的弹窗显示该地点选中时间的客户数和总客户数（比如选中时间1时，New York弹窗显示：New York、选中时间的客户数：2、总客户数：3）。

原代码存在地图不随滑块输入更新的问题，以下是错误分析和修正方案。

错误原因 #

1. 缺乏响应式依赖：renderLeaflet没有引用input$time或data_input()，Shiny无法感知滑块变化，不会重新渲染地图；
2. 数据拼接错误：弹窗直接调用arrivals$data_input是无效的，data_input()是响应式数据框，需要和order合并才能匹配每个地点的选中时间客户数；
3. 弹窗字符串格式错误：原代码的paste没有正确引用变量，也没有处理换行和缺失数据的情况。

修正后的完整代码 #

UI部分 #

shinyUI(fluidPage(
  titlePanel("Time"),
  sidebarLayout(
    sidebarPanel(
      sliderInput("time", "Hours selected ", min=0, max=24, value=12)
    ), 
    mainPanel(leafletOutput("mymap", height = "900", width = "900"))
  )
))

Server部分 #

shinyServer(function(input, output){
  # 生成选中时间的各地点客户计数
  data_input <- reactive({
    arrivals %>% 
      filter(Arrival_time == input$time) %>% 
      group_by(Location) %>% 
      summarise(selected_count = n(), .groups = "drop")
  })
  
  output$mymap <- renderLeaflet({
    # 合并order和选中时间的计数数据，缺失的计数填充为0
    merged_data <- order %>%
      left_join(data_input(), by = "Location") %>%
      mutate(selected_count = ifelse(is.na(selected_count), 0, selected_count))
    
    # 计算每个地点的总客户数（从arrivals统计）
    total_counts <- arrivals %>%
      group_by(Location) %>%
      summarise(total_count = n(), .groups = "drop")
    
    merged_data <- merged_data %>%
      left_join(total_counts, by = "Location") %>%
      mutate(total_count = ifelse(is.na(total_count), 0, total_count))
    
    # 渲染地图
    leaflet(data = merged_data) %>% 
      addTiles() %>% 
      addMarkers(
        ~Longitude, ~Latitude,
        popup = paste(
          "<strong>", merged_data$Location, "</strong><br>",
          "选中时间的客户数: ", merged_data$selected_count, "<br>",
          "总客户数: ", merged_data$total_count
        )
      )
  })
})

关键修正点 #

1. 响应式依赖：renderLeaflet内部调用了data_input()和input$time，滑块变化时会触发地图重新渲染；
2. 数据合并：用left_join把order和选中时间的计数、总客户数合并，确保每个地点都有对应数据，缺失值填充为0；
3. 弹窗格式化：用HTML的<br>实现换行，<strong>强调地点名称，提升弹窗可读性；
4. 总客户数计算：从arrivals中预先统计每个地点的总客户数，合并到数据集里用于弹窗显示。

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