试试这个

> 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