如何计算R中点组的质心？

Question

在 Python 中，你可以有一个像lst = [[0, 1, 2], [2, 3, 4]] 。

要在此计算质心，您可以使用以下代码：

n = len(lst[0])
centroid = [0]*n

def centroid(*args):
    for i in range(n):
        _sum = sum([element[i] for element in lst])
        centroid[i] = _sum/len(lst)
    return centroid

get_centroid(lst)

通常如何在 R 中为一组点做同样的事情？ 即如何创建相同的功能？

Answer 1

似乎他们将质心坐标计算为相应维度上的平均值，因此

lst <- list(c(0, 1, 2),c(2, 3, 4))

calcCentroid <- function(pointList) {
  rowMeans(do.call("cbind",pointList))
}

calcCentroid(lst)

应该做的工作。 我假设你有一个list的点，每个点都有相同的length 。 然后，您可以将它们全部组合成一个数字矩阵。 它的列包含点。 然后你可以执行一个 rowwise mean，这在R可以通过rowMeans来完成，这是一个高度优化的函数，专门用于这项工作。