在R中用sf几何设置Leaflet的边界

Question

我想使用sf包来提取边界框(例如st_bbox),并使用这些坐标传递给传单fitBounds.

做这个的最好方式是什么？还有一个类似的职位是在这里:我不想因为我们已经有一个可以使用的边界框,我们不希望有使用设定缩放采取一切坐标的平均值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]
);

Answer 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])