已用Leaflet实现R语言离线地图，能否用Plotly实现相同功能？

你可以借助Plotly的Mapbox模块结合本地瓦片服务实现离线地图，核心是通过配置自定义瓦片URL来加载你已下载的离线瓦片文件。以下是适配你现有Leaflet代码的Plotly实现方案：

实现步骤 #

1. 复用本地瓦片与服务启动：保留你已有的瓦片下载和本地服务启动逻辑，确保离线瓦片能通过本地服务器访问。
2. Plotly配置自定义离线瓦片：通过plot_ly()结合layout()中的mapbox参数，指定自定义瓦片的URL模板、地图中心及缩放级别。

完整代码示例 #

# 设置工作目录（与你下载瓦片的目录一致）
setwd("C:/Users/user/Documents/mapTiles")

# 下载离线瓦片（如果尚未下载可执行此步骤，已下载可跳过）
library(RgoogleMaps)
GetMapTiles(center = c(lat = 35.75, lon = 65.31), zoom = 10,
            nTiles = c(20,20), type = "osm", tileDir= TRUE)

# 启动本地瓦片服务
deamon_id <- servr::httd(port = 8002, daemon = TRUE)

# Plotly实现离线地图
library(plotly)

# 创建空的Plotly对象，配置Mapbox离线瓦片
p <- plot_ly() %>%
  layout(
    mapbox = list(
      style = "white-bg", # 基础样式设为空白，避免加载在线Mapbox样式
      center = list(lon = 65.31, lat = 33.67), # 地图中心坐标（经度在前）
      zoom = 10, # 缩放级别
      layers = list(
        list(
          sourcetype = "raster",
          source = list("http://localhost:8002/osm/{z}_{x}_{y}.png"), # 本地瓦片URL模板
          type = "raster",
          below = "traces" # 瓦片层置于数据层下方
        )
      )
    ),
    margin = list(l = 0, r = 0, t = 0, b = 0) # 去除边距，让地图占满容器
  )

# 显示地图
p

# 停止本地服务
servr::daemon_stop(deamon_id)

关键说明 #

• 确保本地服务端口（8002）与瓦片URL中的端口一致，避免访问失败。
• Plotly的Mapbox坐标顺序为经度在前，纬度在后，与Leaflet的setView参数顺序一致，无需调整。
• style = "white-bg"是为了禁用在线Mapbox基础样式，完全依赖你的离线瓦片；若保留默认样式，可能会加载在线资源，破坏离线效果。

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