如何在Shiny框架的Leaflet地图内添加文本标题

要在Shiny环境下给Leaflet地图添加随输入变化的文本说明，可以借助leafletProxy()结合addControl()实现动态更新，核心思路是：每次输入变化时，先移除旧的文本控件，再添加新的文本内容。

修改后的完整代码如下：

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

ui <- fluidPage(
  selectInput("Year", "选择采样年份", choices = 2016:2021, selected = 2016),
  leafletOutput("map")
)

server <- function(input, output, session){
  
  output$map <- renderLeaflet({
    leaflet() %>%
      addTiles() 
  })
  
  observe({
    title <- paste("选中年份：", input$Year)    
    # 使用leafletProxy动态更新地图控件
    leafletProxy("map") %>%
      # 先移除旧的文本控件（通过id匹配）
      removeControl("year-title") %>%
      # 添加新的文本控件，设置位置和样式
      addControl(
        html = title,
        position = "topright",
        id = "year-title",
        style = "background: white; padding: 6px 10px; border-radius: 4px; box-shadow: 0 1px 5px rgba(0,0,0,0.65);"
      )
  })
}

shinyApp(ui = ui, server = server)

关键说明： #

• leafletProxy("map")：无需重新渲染整个地图，就能动态修改已加载的Leaflet地图，提升交互性能。
• removeControl("year-title")：通过指定控件ID，每次更新前移除旧文本，避免内容重复叠加。
• addControl()：可自定义文本内容、显示位置（可选topleft/topright/bottomleft/bottomright），还能通过style参数调整文本框的背景、边距、阴影样式，让它更贴合地图视觉风格。

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