如何将瓦片集转换为Albers投影？或添加对齐要素至该投影？

我有一款Mapbox Studio中采用Albers投影的样式，效果如下：

需要使用另一款包含水体的样式（效果如下），并将其转换为Albers投影：

但直接基于Albers样式添加水体时，二者无法对齐：

请问如何将这款水体瓦片转换为Albers投影？最终要在R语言的Leaflet地图中使用并添加标记。

一、在Mapbox Studio中重新配置投影并发布瓦片 #

• 打开Mapbox Studio，导入带水体的样式项目
• 进入项目设置，找到投影选项，选择Albers USA投影（与目标样式保持一致）
• 检查并调整水体图层的数据源匹配规则，确保图层坐标系统适配新投影，避免偏移
• 发布该样式为自定义瓦片服务，获取瓦片访问URL

二、在R的Leaflet中加载Albers投影瓦片 #

Leaflet默认使用Web墨卡托投影，需借助proj4leaflet包配置自定义CRS来加载Albers投影瓦片：

1. 安装并加载依赖包：

install.packages(c("leaflet", "proj4leaflet"))
library(leaflet)
library(proj4leaflet)

2. 定义Albers USA投影的CRS参数（与Mapbox使用的参数一致）：

albers_crs <- leafletCRS(
  crsClass = "L.Proj.CRS",
  code = "EPSG:5070",
  proj4def = "+proj=aea +lat_1=29.5 +lat_2=45.5 +lat_0=37.5 +lon_0=-96 +x_0=0 +y_0=0 +datum=NAD83 +units=m +no_defs",
  resolutions = c(65536, 32768, 16384, 8192, 4096, 2048, 1024, 512, 256, 128)
)

3. 加载瓦片并添加标记：

leaflet(options = leafletOptions(crs = albers_crs)) %>%
  addTiles(
    urlTemplate = "你的Mapbox自定义Albers瓦片URL",
    attribution = "Mapbox"
  ) %>%
  addMarkers(lng = -100, lat = 40, popup = "测试标记") # 替换为实际标记的经纬度

三、关键注意事项 #

• 确保Mapbox Studio中设置的投影参数，与R中定义的proj4def完全一致，否则会出现偏移
• 如果标记使用WGS84经纬度，Leaflet会通过CRS配置自动完成坐标转换，无需手动转换

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