在 R 中使用 sf 几何设置传单的边界答案

【问题标题】：Setting Boundaries of Leaflet with sf geometry in R在 R 中使用 sf 几何设置传单的边界
【发布时间】：2018-07-18 01:16:04
【问题描述】：

我想使用 sf 包来提取边界框（例如 st_bbox ）并使用 fitBounds 将这些坐标传递给传单。

最好的方法是什么？有一个类似的帖子是here：我不想取所有坐标的平均值，因为我们已经有一个可以使用的边界框并且我们不想使用setView 设置缩放。我目前正在尝试的一个示例 -

占领伟大的印第安纳州：

require(USAboundaries);require(sf)
state <- us_boundaries(states="Indiana")
st_bbox(state)


       xmin      ymin      xmax      ymax 
    -88.11186  37.78194 -84.78395  41.75956

我想轻松地将其转换为 Leaflet 的fitBounds 可以解释的格式。可能是这样的？：

map.fitBounds([
  [-88.11186, 37.78194],
  [-84.78395, 41.75956]
);

【问题讨论】：

标签： r leaflet sf

【解决方案1】：

怎么样：

library(sf)
library(leaflet)
library(USAboundaries)

state <- us_boundaries(states = "Indiana")

bbox <- st_bbox(state) %>% 
  as.vector()

leaflet() %>% 
  addTiles() %>% 
  fitBounds(bbox[1], bbox[2], bbox[3], bbox[4])

【讨论】：

工作愉快。与我的想法类似，并且比我在多个线程上找到的平均坐标解决方案更有效。