我来帮你修正代码里的问题，让标记标签能根据地图缩放级别正确显示：

问题分析 #

你的代码里有几个关键问题：

• 用observe来获取缩放级别是不对的，observe是用于执行操作（比如打印、更新UI），不能返回值，应该用reactive来存储缩放级别。
• label参数里的if语法错误，R中向量条件判断要用ifelse，而且反应式变量需要用括号调用（比如mapscale()）。
• 初始的renderLeaflet只会执行一次，地图缩放变化时不会更新标签，需要用leafletProxy来动态更新标记。

修正后的代码 #

library(shiny)
library(leaflet)

# 示例数据
df <- data.frame(
  location_name = c('S1', 'S2'),
  lng = c(-1.554136, -2.10401),
  lat = c(47.218637, 47.218637),
  stringsAsFactors = FALSE
)

# UI部分
ui <- shinyUI(fluidPage(
  leafletOutput('map')
))

# Server部分
server <- shinyServer(function(input, output, session) {
  # 用reactive存储当前缩放级别
  mapscale <- reactive({
    input$map_zoom
  })
  
  # 初始化地图
  output$map <- renderLeaflet({
    leaflet(df) %>% 
      addTiles() %>% 
      # 初始时根据缩放级别决定是否显示标签
      addMarkers(lng = ~lng, lat = ~lat, 
                 label = ~ifelse(mapscale() < 6, location_name, NULL))
  })
  
  # 监听缩放级别变化，动态更新标记
  observeEvent(mapscale(), {
    leafletProxy("map", data = df) %>%
      clearMarkers() %>%
      addMarkers(lng = ~lng, lat = ~lat,
                 label = ~ifelse(mapscale() < 6, location_name, NULL))
  })
})

shinyApp(ui = ui, server = server)

关键改进点 #

• reactive存储缩放级别：mapscale <- reactive({input$map_zoom}) 可以实时获取当前的地图缩放值，调用时需要加()。
• ifelse条件判断：用ifelse(mapscale() < 6, location_name, NULL)来控制标签显示，当缩放级别小于6时显示location_name，否则不显示标签。
• leafletProxy动态更新：通过observeEvent监听缩放级别变化，使用leafletProxy清除旧标记并添加新标记，这样缩放变化时标签会实时更新。

这样修改后，你的地图就能根据缩放级别动态显示标记标签啦！

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