R Shiny对接大SQL Server库 地图点击多边形弹窗柱状图不生效问题排查

• 核心错配逻辑：当前传入popupGraph()的是包含16个点位、每个点位对应一个ggplot对象的分组tibble，而popupGraph要求逐行匹配对应空间要素的独立ggplot渲染对象，直接把整个分组tibble传值会导致leaflet无法提取对应点位的图表引用，临时渲染的PNG文件路径无法正确映射，最终触发文件不存在的连接错误。
• 非核心问题：当前代码未对每个点位的柱形维度做数量限制，全量明细数据生成的ggplot体量过大，会放大临时文件的渲染失败概率，但这不是报错的根本原因。

1. 修正空间图层与弹窗图表的绑定逻辑 #

原来的代码直接将整个plots() reactive的返回值传给popupGraph，是导致报错的核心原因，需要保证空间数据行和对应图表对象按location键一一合并后，再绑定到弹窗参数：

server <- function(input, output, session) {
  # 抽离全局数据库连接，避免每个reactive重复创建连接浪费资源
  con <- reactive({
    dbConnect(odbc::odbc(), Driver = "ODBC Driver 17 for SQL Server",
              Server = DBServer, Database = "x", UID = DBUser,
              PWD = DBPassword)
  })

  plots <- reactive({ 
    req(input$hc)
    hcname <- input$hc
    current_con <- con()
    on.exit(dbDisconnect(current_con), add = TRUE) # 函数执行完自动断开连接，避免连接泄漏
    
    # 第一次查询获取匹配的location列表
    df_q1 <- dbGetQuery(
      current_con, 
      "SELECT DISTINCT location FROM 你的业务表 WHERE 筛选条件 = ?",
      params = list(hcname)
    )
    list_from_q1 <- df_q1$location
    
    # 第二次查询拉取明细数据，用参数化查询替代字符串拼接，避免SQL注入
    df_q2 <- dbGetQuery(
      current_con, 
      "SELECT location, b, c FROM 你的指标表 WHERE location IN (?)",
      params = list(list_from_q1)
    )

    # 汇总计算每个点位各分类的总和
    df_q2_summary = df_q2 %>% 
      group_by(location, b) %>% 
      summarise(sumc = sum(c), .groups = "drop")

    # 逐点位生成对应的ggplot对象
    plot_list <- df_q2_summary %>% 
      group_by(location) %>% 
      group_split() %>% 
      purrr::map(function(loc_df){
        ggplot(loc_df) +
          aes(x = reorder(b, -sumc), y = sumc) + # 直接在绘图层完成x轴降序排列
          geom_bar(stat = "identity", fill = "#3182bd") +
          ggtitle(unique(loc_df$location)) +
          theme_minimal()
      })
    
    # 返回和location一一对应的图表列表
    tibble(
      location = df_q1$location,
      plot_obj = plot_list
    )
  })    
  
  df_q1_geom <- reactive ({
    req(input$hc, con())
    hcname <- input$hc
    current_con <- con()
    on.exit(dbDisconnect(current_con), add = TRUE)
    
    df_q1 <-  dbGetQuery(
      current_con, 
      "SELECT DISTINCT location FROM 你的业务表 WHERE 筛选条件 = ?",
      params = list(hcname)
    )
    
    # 关联空间多边形数据
    inner_join(shapefile.spdf, df_q1, by = "location")
  }) 

  output$mymap <- renderLeaflet({
    req(df_q1_geom(), plots())
    # 先把空间数据和图表对象按location键合并，保证行顺序完全对齐
    map_base <- df_q1_geom() %>% 
      left_join(plots(), by = "location")

    leaflet() %>% 
      addPolygons(
        data = map_base, 
        popup = ~popupGraph(plot_obj), 
        weight = 1.5, 
        color = "lightblue", 
        fillColor = "lightblue"
      ) %>%
      addProviderTiles(
        providers$Esri.WorldStreetMap, 
        options = providerTileOptions(opacity = 0.25)
      )
  })
}  

shinyApp(ui = ui, server = server)  

2. 实现仅绘制sumc排名前5的柱形 #

完全可以直接在数据处理流中完成排序、截取TopN的逻辑，不需要额外拆分步骤，在汇总计算后增加分组截取逻辑即可：

df_q2_summary = df_q2 %>% 
  group_by(location, b) %>% 
  summarise(sumc = sum(c), .groups = "drop") %>%
  group_by(location) %>%
  # 每个点位内按sumc降序，仅保留前5个分类
  slice_max(order_by = sumc, n = 5) %>%
  ungroup()

• 优化点：后续绘图时配合aes(x = reorder(b, -sumc))，x轴会自动按数值从高到低排列，无需手动调整因子顺序。
• 性能优化：面对千万级的大表查询，可以把TopN的截取逻辑下推到SQL层，用窗口函数完成过滤，减少R端的数据传输和计算压力。

• 你遇到的PNG文件找不到的报错，本质是因为popupGraph找不到对应的ggplot对象引用生成空渲染，并非柱形数量过多导致的固有问题，只要对象绑定逻辑正确，即使每个点位有几十根柱形也可以正常渲染。
• 避免在reactive中重复创建SQL Server连接，高频重复连接会触发数据库连接数上限，导致后续查询失败。

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