获取数据框列中坐标的边界框

Question

我有一个包含两列数字类型的数据框。

foo <- data.frame(replicate(2,sample(10.1:15.2,100,rep=TRUE)))

    X1 X2
1 13.1 15.1
2 13.1 11.1
3 13.1 15.1
4 10.1 13.1
5 15.1 11.1
6 13.1 11.1
...

这些数字代表 4326 中的坐标。 X1 是纬度，X2 是经度。我如何获得所有这些坐标的边界框？

Answer 1

使用sfheaders稍微Suxpint略微固定，如果您需要在软件包中使用的轻重量选项。

sfheaders::sf_bbox(foo, x = "X2", y = "X1")

# xmin ymin xmax ymax 
# 10.1 10.1 15.1 15.1 
# attr(,"class")
# [1] "bbox"

但是，如果您在工作流程中使用sf，则纯sf方法很好。

Answer 2

转换为sf并使用st_bbox：

library(sf)

foo %>% 
  st_as_sf(coords = c("X2","X1"), crs = 4326) %>% 
  st_bbox()

# xmin ymin xmax ymax 
# 10.1 10.1 15.1 15.1