与外部变量

Question

我想旋转我的排序，以便外部变量的矢量与第一个维度对齐。当使用MDS作为圣职任命时，我会使用素食主义者的MDSrotate。有没有办法为PCA做同样的事情？

这是一些虚拟数据。

df1 = data.frame(A=c(1,2,3,5.5,5,2), B=c(2,2,2,2,0.5,1), C=c(1.5,0,0,2.1,3,1), D=c(0.2,1,2,1,0.8,2), E=c(0.4,0.6,0.2,1.1,2,3))
env = data.frame(one=c(1.1,0,0.2,2,2.8,1.1), two=c(2,1,1,1.2,0.3,2))
pca <- rda(df1, scale = TRUE)
summary(pca)
biplot(pca, scaling = 3)
(fit1<-envfit(pca, (env), perm = 999))
plot(fit1)

我想轮换分数，以便“＃”与PC1对齐。这可能吗？我搜索了很长时间，找不到任何与MDSrotate同等的内容。谢谢