查找多边形的视觉中心

Question

从这个问题继续：gCentroid将重心移向点的浓度，但形状更复杂。

使用这个SpatialPointsDataFrame，我使用gCentroid计算了中心，但它将其放在了形状外面。

# c. = [dput'd data from link]
poly <- SpatialPolygons(Srl = list(Polygons( srl = list(Polygon(coords = coordinates(c.))), ID = 1)))
plot(poly)
axis(1)
axis(2)
points(rgeos::gCentroid(poly)) 

我应该如何返回一个中心点坐标，使其落在指定形状内部？

正如在这些形状的评论中所指出的那样，中心点落在边界之外。我想要寻找的更好的描述是“质心”，即在多边形内部离边界最远的点。

- Rafael

---

我已经离开学校有一段时间了，但我相信只有凸多边形才能保证质心在形状内部。 - svenhalvorson

想象一个环面（一个有两个同心圆作为边界的区域）。当然，质心是在该区域外部。如果你想要在该区域内部找到某些东西，你就必须定义你要寻找的内容。 - G5W

关于如何找到不规则多边形的“视觉中心”的一个非常相关的问题已经在这里提出：https://dev59.com/MHM_5IYBdhLWcg3w2XBg#65409262 - mjkvaak

Answer 1

polylabelR::poi（多边形的极点（视觉中心））似乎能够胜任。相关方法：https://blog.mapbox.com/a-new-algorithm-for-finding-a-visual-center-of-a-polygon-7c77e6492fbc

poly <- SpatialPolygons(Srl = list(Polygons( srl = list(Polygon(coords = coordinates(c.))), ID = 1)))
plot(poly)
axis(1)
axis(2)
points(rgeos::gCentroid(c.)) 

p <- polylabelr::poi(xx$long, xx$lat, precision = 0.01)
points(p)

- Rafael