如何在R Shiny的Leaflet地图中仅显示美国边界，隐藏加拿大、墨西哥

要让你的leaflet地图只显示美国区域、隐藏加拿大、墨西哥等其他地区，不需要修改addProviderTiles的现有代码，而是通过添加边界裁剪或覆盖层的方式实现。以下是具体方案：

• 步骤1：获取美国边界数据
  使用maps和sf包获取美国的地理边界：

  library(sf)
  # 获取美国国家级边界
  us_country <- st_as_sf(maps::map("usa", plot = FALSE, fill = TRUE))
  

• 步骤2：修改你的leaflet代码
  在现有代码基础上，添加视野定位、覆盖层和裁剪逻辑：

  library(leaflet)
  library(sf)
  
  us_country <- st_as_sf(maps::map("usa", plot = FALSE, fill = TRUE))
  
  leaflet() %>%
    addProviderTiles(providers$Stamen.TonerLite,
                     options = providerTileOptions(opacity = 0.5)) %>%
    # 定位到美国中心区域，设置初始缩放级别
    setView(lng = -98.58, lat = 39.82, zoom = 4) %>%
    # 添加美国边界线
    addPolygons(data = us_country,
                color = "black",
                weight = 1,
                fillOpacity = 0) %>%
    # 添加覆盖层隐藏美国以外区域
    addRectangles(
      lng1 = -180, lat1 = 90,
      lng2 = -66, lat2 = 24,
      fillColor = "white",
      fillOpacity = 1,
      color = NA,
      options = pathOptions(pane = "overlayPane")
    )
  

• 关键说明

  • setView确保地图初始显示聚焦美国，你可以根据需求调整经纬度和缩放级别
  • 矩形覆盖层的范围是基于美国大致经纬度边界设置的，若需要更精确的裁剪，可以用sf的st_crop函数配合瓦片图层处理
  • 保留原有addProviderTiles的参数，只新增裁剪相关逻辑即可

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