R语言Leaflet如何用flyTo()实现平滑平移缩放，避免先缩放到全球视图

Leaflet原生flyTo动画的默认逻辑是根据起始视图和目标视图的距离动态调整中间缩放层级，两点距离过远时就会降到全球缩放层级作为过渡，以下3种方案都可以解决该问题：

方案1：临时设置最小缩放限制 #

实现最简单，原理是在执行flyTo前临时限制地图的最小缩放层级，避免动画过程中降到全球层级，跳转完成后恢复原始最小缩放设置即可。

# 可直接固定起始最小缩放为城市级别数值，也可以提前记录地图的原始最小缩放值
original_min_zoom <- 2
your_leaflet_map %>%
  # 临时设置最小缩放为城市级别，比如10，保证动画不会缩到更小
  setMinZoom(zoom = 10) %>%
  flyTo(
    lng = -122.17014,
    lat = 37.42752,
    zoom = 15
  ) %>%
  # 跳转完成后恢复原始最小缩放，也可根据需求保留设置
  setMinZoom(zoom = original_min_zoom)

方案2：用瞬切中间视图衔接flyTo动画 #

如果不想修改全局缩放限制，可以先无动画将视图切换到目标点附近的城市级缩放，再执行flyTo动画，用户完全看不到缩放到全球的过程。

your_leaflet_map %>%
  # 先无动画瞬间跳到目标点附近的城市级缩放（比如zoom=10）
  setView(
    lng = -122.17014,
    lat = 37.42752,
    zoom = 10,
    options = leafletOptions(animate = FALSE)
  ) %>%
  # 再执行带动画的flyTo到目标缩放层级
  flyTo(
    lng = -122.17014,
    lat = 37.42752,
    zoom = 15
  )

方案3：使用flyToBounds替代flyTo #

如果你的跳转目标是一个区域而非单点，flyToBounds的动画逻辑本身就不会缩到超出两个视图边界的范围，可以直接指定目标点周围的城市级边界作为跳转的过渡范围，避免落到全球层级。

# 计算目标点周围的城市级边界，示例是目标点经纬度±0.1度，可根据需要调整范围
lng_bounds <- c(-122.17014 - 0.1, -122.17014 + 0.1)
lat_bounds <- c(37.42752 - 0.1, 37.42752 + 0.1)

your_leaflet_map %>%
  flyToBounds(
    lng1 = lng_bounds[1],
    lat1 = lat_bounds[1],
    lng2 = lng_bounds[2],
    lat2 = lat_bounds[2],
    # 可以额外指定最终的缩放层级
    options = leafletOptions(maxZoom = 15)
  )

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