r - 将 `st_bbox()` 的结果转换为其他 CRS

Question

是否有一种简单的方法可以将简单特征(sf 对象)的边界转换为另一个 CRS？

函数的结果 st_bbox()属于 bbox .无法使用 st_transform()将其转换为另一个 CRS。

我正在使用基于计算的边界框 EPSG: 28992 :

sf::st_bbox(xmin = 187470, xmax =194587, 
            ymin = 409753, ymax = 412715,  
            crs = st_crs(28992))

现在我想把这个盒子转换成 EPSG:4326

Answer 1

有一个st_as_sfc bbox 的方法对象，所以我们可以转换一个 bbox像这样:

library(sf)

bb = sf::st_bbox(c(xmin = 187470, xmax =194587, 
                   ymin = 409753, ymax = 412715),  
                 crs = st_crs(28992))

bb_ll = st_bbox(
  st_transform(
    st_as_sfc(bb), 
    4326
  )
)

# or pipey
library(magrittr)

bb_ll = bb %>%
  st_as_sfc() %>%
  st_transform(crs = 4326) %>%
  st_bbox()

bb_ll

    xmin      ymin      xmax      ymax 
5.856639 51.675176  5.959866 51.702257