屏图标度

Question

我想要筛选出我所观察到的pca的结果。此pca的一些结果与相应的scree图一起总结如下。然而，scree图的大小并不代表表格中的结果:表上第一台pc的方差为71%，但在图表中只有5%。为什么会有这种差异？

                         PC1    PC2     PC3     PC4     PC5    
Standard deviation     3.4603 1.55582 0.62813 0.38341 0.58616 
Proportion of Variance 0.7144 0.05045 0.02683 0.01633 0.01133 
Cumulative Proportion  0.7144 0.76485 0.79168 0.80801 0.81934 

​

​

Answer 1

图的y轴是方差，即标准差平方：

y = prcomp(USArrests)
summary(y)
y$sdev^2
screeplot(y,type="lines")

实际上，screeplot函数非常简单易懂。要查看该函数，请使用getS3method函数：

getS3method("screeplot", "default")

需要注意的两个关键声明是：

pcs <- x$sdev^2

和

plot(xp, pcs[xp], type = "b", axes = FALSE, main = main, 
            xlab = "", ylab = "Variances", ...)