r - 获取 PCA 中的累积比例

Question

我想在 R 中的 pca 之后检索解释方差的累积比例。summary(pca)在最后一行返回此结果，但如何提取此行？

summary(prcomp(USArrests, scale = TRUE))
Importance of components:
                          PC1    PC2     PC3     PC4
Standard deviation     1.5749 0.9949 0.59713 0.41645
Proportion of Variance 0.6201 0.2474 0.08914 0.04336
Cumulative Proportion  0.6201 0.8675 0.95664 1.00000

我试过 s <- summary(prcomp(USArrests, scale = TRUE))和 s[3] 等，但它不返回最后一行。

Answer 1

你可以试试

pr <- prcomp(USArrests, scale = TRUE)
vars <- apply(pr$x, 2, var)  
props <- vars / sum(vars)
cumsum(props)