Большинство объектов pca должны возвращать вам список, и вы должны показать, какой пакет или функция используется для выполнения pca, чтобы мы могли видеть, что в списке
Например, если вы используете prcomp
, он возвращает список собственных векторов / загрузок ($ вращение) и главных компонентов ($ x). Я полагаю, вы пытаетесь сделать k-средних на основных компонентах, и вы можете сделать это следующим образом:
# perform pca
pca = prcomp(USArrests,scale=TRUE)
# we call out the PCs using pca$x
# and kmeans
kmeans_clus = kmeans(pca$x,3)
## plot
# define colors
COLS = c("#65587f","#f18867","#e85f99")
plot(pca$x[,1:2],col=COLS[kmeans_clus$cluster],pch=20)
legend("topright",fill=COLS,legend=1:3,horiz=TRUE)