在R中使用SF几何设置小叶的边界

时间:2018-07-18 01:16:05

标签: r leaflet sf

我想使用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]
);

1 个答案:

答案 0 :(得分:6)

怎么样:

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

enter image description here