点击Leaflet地图后ObserveEvent未输出图层ID及国家信息求助

看起来你遇到的核心问题是server代码不完整，加上没给图层绑定点击事件的必要参数，导致点击后无法获取目标信息。我帮你补全并修复了代码，同时解释关键修复点：

完整可运行代码 #

library(rgdal)
library(shiny)
library(leaflet)

# 加载Natural Earth国家数据（确保shp相关文件在当前目录）
folder <- "."
country <- readOGR(dsn = folder, layer = "ne_110m_admin_0_countries", encoding = "UTF-8")
country <- spTransform(country, CRS("+proj=longlat +ellps=GRS80"))

ui <- fluidPage(
  leafletOutput('mymap'),
  # 新增输出区域，用来展示点击后的国家信息和经纬度
  verbatimTextOutput("click_info")
)

server <- function(input, output, session) {
  output$mymap <- renderLeaflet({
    leaflet() %>%
      addTiles() %>%
      # 关键：给每个多边形图层绑定唯一ID（这里用国家名称），同时设置基础弹窗
      addPolygons(
        data = country,
        layerId = ~admin,  # 用数据中的admin字段作为图层ID，对应国家名称
        popup = ~admin,
        fillColor = "white",
        color = "black",
        weight = 1
      )
  })
  
  # 监听地图多边形的点击事件
  observeEvent(input$mymap_shape_click, {
    click_data <- input$mymap_shape_click
    
    # 在控制台打印图层ID和经纬度（你之前想要的输出）
    cat("图层ID（国家名称）：", click_data$id, "\n")
    cat("点击位置经纬度：", click_data$lng, ",", click_data$lat, "\n")
    
    # 在Shiny界面上展示点击结果
    output$click_info <- renderPrint({
      list(
        国家名称 = click_data$id,
        经度 = click_data$lng,
        纬度 = click_data$lat
      )
    })
  })
}

shinyApp(ui, server)

关键修复点说明 #

1. 补全Server函数结构
   你原来的server &...是不完整的，Shiny的server必须是server <- function(input, output, session) {... }的完整函数形式，否则代码根本无法运行。

2. 给图层绑定layerId
   在addPolygons里通过layerId = ~admin把数据中的国家名称绑定到每个多边形图层，这样点击时才能从点击事件中获取到对应的国家信息。如果你的数据里admin不是正确的国家名字段，可以用names(country)查看所有属性列，换成比如NAME_EN这类字段。

3. 监听正确的点击事件
   Leaflet在Shiny中点击多边形时，会触发input$[你的地图输出ID]_shape_click这个输入对象，你的地图ID是mymap，所以要监听input$mymap_shape_click。

4. 添加输出展示区域
   我在UI里加了verbatimTextOutput，用来在界面上直接展示点击结果，同时控制台也会打印你需要的图层ID和经纬度。

额外注意事项 #

• 确保Natural Earth的shp相关文件（.shp、.shx、.dbf等）都在你设置的folder目录下，否则会加载失败。
• 如果运行时出现编码问题，可以尝试调整encoding参数，比如换成encoding="UTF-8-BOM"。

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