如何反转双标图中的轴

Question

当我绘制 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)

如何更改其中之一的轴方向，使它们相同？

Answer 1

PC的符号是任意的，您可以通过将一个或多个PC乘以-1来改变it/them。请注意，这仅代表表示，具体取决于您的操作，例如，如果您使用 $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")

如何反转双标图中的轴

How can I reverse the axis in a biplot

plot

axis

r

pca

biplot