从拉长的缓冲区创建 SpatialLine

【问题标题】：Create SpatialLine from elongated buffer从拉长的缓冲区创建 SpatialLine
【发布时间】：2018-06-25 17:58:33
【问题描述】：

我有一个SpatialPolygonsDataFrame，它是道路的缓冲区。我想通过找到适合该缓冲区的SpatialLine 来重新创建这条道路的大致路径。

你知道怎么做吗？

可重现的例子

library(rgeos)
library(sp)

line <- readWKT("LINESTRING(0 0, 0.2 0.1, 0.3 0.6, 0.4 0.1, .3 .3, 1 1)")

# buffer
  line_buff <- gBuffer(line, width = 0.01)
  plot(line_buff, col="red")

【问题讨论】：

标签： r sp sf

【解决方案1】：

一个真正的远景，但你可以通过三角测量到正确的大小，然后找到穿过这些中心的路径，但我不喜欢这样的机会路线实际上像这样自相交...

tri <- sfdct::ct_triangulate(sf::st_as_sf(line_buff), a = 0.0005)
plot(st_coordinates(st_centroid(st_cast(tri$geometry))))

【讨论】：