怎么提取summary()中Importance下Cumulative Proportion这一行的数，也就是红字

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

> summary(mydatapr1,loadings=TRUE)
Importance of components:
                          Comp.1    Comp.2    Comp.3     Comp.4     Comp.5
Standard deviation     1.6468502 1.1838371 0.7964651 0.38943147 0.31686072
Proportion of Variance 0.5424231 0.2802940 0.1268713 0.03033137 0.02008014
Cumulative Proportion  0.5424231 0.8227171 0.9495885 0.97991986 1.00000000

Loadings:
   Comp.1 Comp.2 Comp.3 Comp.4 Comp.5
x1        -0.753  0.549 -0.144 -0.333
x2 -0.511 -0.387         0.599  0.470
x3 -0.561        -0.374        -0.734
x4 -0.303  0.529  0.739  0.272      
x5  0.577                0.736 -0.349

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

试试这个

1. > s <- summary(prcomp(student, scale = TRUE))
   
2. > s
   
3. Importance of components%s:
   
4.                           PC1     PC2     PC3     PC4
   
5. Standard deviation     1.8846 0.57380 0.30944 0.15255
   
6. Proportion of Variance 0.8879 0.08231 0.02394 0.00582
   
7. Cumulative Proportion  0.8879 0.97024 0.99418 1.00000
   
8. > s$importance[3,]
   
9.     PC1     PC2     PC3     PC4
   
10. 0.88793 0.97024 0.99418 1.00000
    
11. > student<- data.frame(  
    
12. +  x1=c(148,139,160,149,159,142,153,150,151),  
    
13. + x2=c(41 ,34 , 49 ,36 ,45 ,31 ,43 ,43, 42),  
    
14. + x3=c(72 ,71 , 77 ,67 ,80 ,66 ,76 ,77,77),  
    
15. +  x4=c(78 ,76 , 86 ,79 ,86 ,76 ,83 ,79 ,80)  
    
16. +  )
    
17. > s <- summary(prcomp(student, scale = TRUE))
    
18. > s$importance[3,]
    
19.     PC1     PC2     PC3     PC4
    
20. 0.88793 0.97024 0.99418 1.00000

复制代码

jiangbeilu 发表于 2017-12-7 17:31
试试这个

> mydatapr2<-prcomp(~x1+x2+x3+x4+x5,data=mydata,scale=TRUE)
> s3<-summary(mydatapr2)
> s3
Importance of components:
                          PC1    PC2    PC3     PC4     PC5
Standard deviation     1.6469 1.1838 0.7965 0.38943 0.31686
Proportion of Variance 0.5424 0.2803 0.1269 0.03033 0.02008
Cumulative Proportion  0.5424 0.8227 0.9496 0.97992 1.00000
> s3$importance[3,]
    PC1     PC2     PC3     PC4     PC5
0.54242 0.82272 0.94959 0.97992 1.00000
用您提供的方法可以。只是不明白为什么用下面的不可以呢？感觉操作完全一样啊
> mydatapr1<-princomp(~x1+x2+x3+x4+x5,data=mydata,cor=T)
> s2<-summary(mydatapr1)
> s2
Importance of components:
                          Comp.1    Comp.2    Comp.3     Comp.4     Comp.5
Standard deviation     1.6468502 1.1838371 0.7964651 0.38943147 0.31686072
Proportion of Variance 0.5424231 0.2802940 0.1268713 0.03033137 0.02008014
Cumulative Proportion  0.5424231 0.8227171 0.9495885 0.97991986 1.00000000
> s2$importance[3,]
NULL