限制主成分分析（PCA）中的负载只是积极的

Question

我可以执行PCA：

## (Simple) Robust PCA:
## Classical:
(pc.cl  <- princomp(stackloss))
## Robust:
(pc.rob <- princomp(stackloss, covmat = MASS::cov.rob(stackloss)))

loadings(pc.cl)
loadings(pc.rob)

但是如何添加约束以使加载只是正数而没有负值？

感谢您的帮助。