PCAのセントロイドの計算方法は？

Question

PCAの各グループの重心ベクトルを比較するには、各PCとグループの重心を計算する方法を探しています。特にグラフィカルなものではなく、MWEのプロットを含んでいます。

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)) 

Answer 1

この例では、次にPCの

library(ggbiplot) 
data(wine) 
wine.pca <- prcomp(wine, center = TRUE, scale. = TRUE) 
df.wine.x <- as.data.frame(wine.pca$x) 
df.wine.x$groups <- wine.class 
pca.centroids <- aggregate(df.wine.x[,1:13], list(Type = df.wine.x$groups), mean) 

内ためバローロとgrignolino間のユークリッド距離を重心間の距離を計算するために使用することができるPCAからの重心の座標を持つデータフレームを提供次のように最初の2枚のPCのための例では、計算することができる：{ビーガン}で

dist(rbind(pca.centroids[pca.centroids$Type == "barolo",2:3],pca.centroids[pca.centroids$Type == "grignolino",2:3]), method = "euclidean")