找出点簇的质心

在网上搜索时，经常会找到用于查找多边形质心的解决方案。我感兴趣的是找到点簇的质心。加权平均值。如果有人可以提供一些指针，伪代码（甚至更好的是，R包已经解决了这个问题）或如何解决此问题的链接，我将不胜感激。

编辑

融合已经开始（再次）。iant提出了一种平均坐标并将其用于质心的方法。当我在此网页上看到正确的图片时，这正是我的想法。

这是一些简单的R代码，用于绘制下图来说明这一点（×是质心）：

xcor <- rchisq(10, 3, 2)
ycor <- runif(10, min = 1, max = 100)
mx <- mean(xcor)
my <- mean(ycor)

plot(xcor, ycor, pch = 1)
points(mx, my, pch = 3)

编辑2

cluster::pam()$medoids返回一组聚类的medoid。这是@Joris Meys无耻地偷来的一个例子：

library(cluster)
df <- data.frame(X = rnorm(100, 0), Y = rpois(100, 2))
plot(df$X, df$Y)
points(pam(df, 1)$medoids, pch = 16, col = "red")

只需对X和Y坐标取平均值（如果需要，乘以权重）即可得到质心。

您可以使用geosphere软件包中的质心功能。

https://www.rdocumentation.org/packages/geosphere/versions/1.5-5/topics/centroid