Um die Schwerpunktvektoren jeder PCA-Gruppe zu vergleichen, suche ich nach einer Methode, um die Zentroide für jeden PC und jede Gruppe zu berechnen. Nicht besonders grafisch, aber enthalten eine Handlung in der MWE, um es beschreibender zu machen.Wie berechnet man Zentroide in PCA?
library(ggbiplot)
data(wine)
wine.pca <- prcomp(wine, center = TRUE, scale. = TRUE)
print(ggbiplot(wine.pca, obs.scale = 1, var.scale = 1, groups = wine.class, ellipse = TRUE, circle = TRUE))
Check 'betadisper in {vegan}' –
dies oben auf das Beispiel angewendet: 'dis <- vegdist (wine.pca $ x," euklidisch ")' 'betadisper (dis, wine.class, type =" centroid ")' gibt: '... Durchschnittliche Entfernung zum Schwerpunkt: barolo 2.163 grignolino 2.954 barbera 2.396 ... ' das sind durchschnittliche Abstände zum Schwerpunkt, aber das Ziel ist es, die Abstände der Zentroide innerhalb jedes PC zu erhalten, wie es grafisch zwischen z PC 3 und 4 von: 'plot (mod, Achsen = c (4,3))' – raumkundschafter