添加本地Shapefile后Leaflet底图不显示问题排查

核心问题：底图加载函数误用 #

你在第二个地图代码中错误使用了addTiles()加载第三方提供商底图：

addTiles(providers$Esri.OceanBasemap)

addTiles()仅适用于传入普通瓦片URL字符串，而加载Leaflet预设的第三方底图必须使用addProviderTiles()，误用会导致底图无法正常加载，表现为底图"消失"。

修正后的完整代码 #

可以简化代码逻辑，直接在已创建的地图对象上叠加图层，避免重复初始化：

library(leaflet)
library(sf)

# 读取并转换数据
data_test <- read_sf("Ports_100km_test.geojson")
data_test <- st_transform(data_test, crs = '+proj=longlat +datum=WGS84')

# 初始化地图并叠加图层
map <- leaflet() %>% 
  addProviderTiles(providers$Esri.OceanBasemap) %>% 
  setView(lng = -4.2026458, lat = 56.4906712, zoom = 5) %>% 
  addPolygons(data = data_test, color = "blue", stroke = 0.5, opacity = 0.5,
              fillOpacity = 0.2) # 显式设置填充透明度，避免过度遮挡底图
map

额外排查点 #

• 确认矢量数据范围：用st_bbox(data_test)查看数据的经纬度边界，确保数据落在你设置的视图范围内，如果数据不在当前视图，可能会误以为底图异常。
• 调整图层透明度：如果多边形填充颜色过深，会遮挡底图，通过fillOpacity参数设置合适的填充透明度（0-1之间）。

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