0

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

如何更改其中之一的轴方向,以使它们相同?

4

1 回答 1

3

PC 的符号是任意的,您可以通过将一台或多台 PC 乘以 -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")

在此处输入图像描述

于 2018-11-21T14:33:35.977 回答