如何在 R 中為 sf object 創建幾何列

Question

我的數據看起來像：

example <- tibble(geometry = "POINT (-3.8258 43.4109)")

我想將示例從 tibble 轉換為 sf object 我有以下解決方案，但我想知道是否有更簡單的方法（因為我也會有多邊形和線條）

left.border <- "POINT ("
right.border <- ")"
example %>% 
  mutate(coord =str_match(geometry, paste(left.border, '(.+)', right.border, sep=''))[,2]) %>% 
  separate( coord, c("X","Y"), sep = " ") %>% 
  mutate(X = str_sub(X, 2)) %>% 
  mutate(Y = str_sub(Y,1,nchar(Y)-2)) %>%
  mutate(X= as.numeric(X),Y= as.numeric(Y) ) %>%
  sf::st_as_sf(coords = c("X","Y"))

Answer 1

如果您所有的幾何圖形都是眾所周知的文本格式，您可以使用：

example = sf::st_as_sf(example, wkt = "geometry")