如何让plot_geo自动缩放至完整包含地理数据？

核心思路是基于数据的经纬度范围自动计算带缓冲的边界，既避免fitbounds="locations"的裁剪问题，又不会像直接用数据范围那样过于紧凑，同时保留用户后续缩放的能力。

实现步骤 #

• 计算数据的经纬度极值范围
• 给范围添加一定比例的缓冲（比例可根据数据尺度调整）
• 在layout(geo=...)中设置带缓冲的轴范围，确保不限制用户交互缩放

完整代码示例 #

library(plotly)

# 示例数据
simpleouter <- structure(list(lon = c(-81.0734678057973, -81.0734601579696, -81.0734484550107, -81.073432854577, -81.0733975145945, -81.0733485079183, -81.0732831359724, -81.0731812806164, -81.0730524130359, -81.0728906244642, -81.0727090833668, -81.0725019262647, -81.0723014647303, -81.0720967621774, -81.0719082785736, -81.0717436469846, -81.071614504076, -81.0715213695205, -81.0714600006159, -81.0714323729392, -81.071425721998, -81.071427563867, -81.0714322028664, -81.0714380750906, -81.0714464199606, -81.0714530639244,  -81.0714640404429, -81.0714800641876, -81.0715059212406, -81.0715433428489, -81.071599319322, -81.071677889326, -81.0717877232053, -81.0719321530166, -81.0720988405724, -81.0723014516816, -81.0725095759708, -81.0727193041855, -81.0729367591727, -81.0731089339929, -81.0732592271676, -81.0733793035935, -81.0734562958247, -81.0735019858925, -81.073510465099, -81.0735055240372, -81.0734963728656, -81.0734851511663, -81.0734762589249, -81.0734678057973), lat = c(36.1425767539004, 36.1424138565364, 36.1422518558661,  36.1420945996656, 36.1419238576038, 36.1417608334235, 36.1415958346638, 36.1414488456951, 36.1413325492495, 36.1412337378155, 36.1411770225236, 36.1411501121235, 36.1411551029806, 36.1411947363256, 36.1412567633342, 36.1413516010283, 36.1414689258078, 36.1416090539297, 36.1417671808467, 36.1419313886788, 36.1420963442737, 36.1422599667132, 36.1424210284474, 36.1425815651978, 36.1427416685307, 36.1429020900657, 36.143064189833, 36.1432273939696, 36.1433906279054, 36.1435537242213, 36.143711749163,  36.1438644855146, 36.1440017047475, 36.1441191188712, 36.1442041432813, 36.1442601787495, 36.1442796271737, 36.1442597621632, 36.144200682876, 36.1441142527926, 36.1439965570493, 36.1438585184451, 36.1437153222574, 36.1435554462018, 36.1433899286698, 36.1432220633474, 36.1430531756022, 36.142893872586, 36.1427344295017, 36.1425767539004)), row.names = c(NA, -50L), class = "data.frame")

# 定义添加缓冲的函数
add_buffer <- function(rng, buffer_pct = 0.01) {
  span <- diff(rng)
  buffer <- span * buffer_pct
  c(rng[1] - buffer, rng[2] + buffer)
}

# 计算带缓冲的经纬度范围
lims <- lapply(simpleouter[, c("lon", "lat")], add_buffer)

# 生成地图
plot_geo(simpleouter, x = ~lon, y = ~lat) %>%
  add_paths() %>%
  layout(
    geo = list(
      lonaxis = list(range = lims$lon),
      lataxis = list(range = lims$lat),
      # 允许用户自由缩放平移
      scope = "north america",
      showland = TRUE,
      landcolor = "#f0f0f0"
    )
  )

关键说明 #

• 缓冲比例调整：buffer_pct默认设为0.01（1%缓冲），数据范围极小（如几百米）时可提高至0.05，范围较大时降低比例，确保边距适配数据尺度。
• 性能保障：完全基于Plotly原生函数实现，无需依赖leaflet或ggplotly，处理数千条数据时性能不受影响。
• 交互保留：未设置强制边界限制，用户可自由缩放、平移视图，满足后续交互需求。
• scope优化：根据数据所在地区设置scope（如"europe"、"asia"等），可优化底图显示效果，为可选设置。

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