Когда я строю PCA, а затем соответствующий побочный график, оси не всегда находятся в одном направлении, как на этих рисунках:
Это функции, которые я использовал:
(pc <- prcomp(dat5, center=T, retx=T, scale=T)); summary(pc)
plot(pc$x[,1:2], pch=""); text(pc$x[,1:2], cex=.5, labels=(row.names(dat5)), col=as.numeric(dat$ObCl))
biplot(princomp(dat5, cor=T), cex=.5)
Как я могу изменить направление оси одного из них, чтобы сделать их одинаковыми?
Знак ПК произвольный, вы можете изменить его/их, умножив один или несколько ПК на -1. Обратите внимание, что это означает только представление, в зависимости от того, что вы делаете, например, если вы используете $rotation, вам также может потребоваться изменить соответствующие столбцы. Далее следует пример с iris. Надеюсь это поможет.
p <- prcomp(iris[, -5])
plot(p$x[, 1:2], asp=1, xlab="PC1", ylab="PC2")
plot(cbind(p$x[, 1], p$x[, 2]*-1), asp=1, xlab="PC1", ylab="PC2")
pc? - person G5W schedule 21.11.2018prcomp. Кстати, всегда помогает воспроизводимый пример - person Vincent Bonhomme schedule 21.11.2018