R语言——实验四难点：计算主成分得分以及主成分排名

> install.packages("openxlsx")
> library(openxlsx)
> seaside=read.xlsx('D:/大三下/多元统计分析R语言/实验报告/1906033106-4-1.xlsx')
> pc=princomp(seaside,cor = T)
> pc

Call:
princomp(x = seaside, cor = T)

Standard deviations:
    Comp.1     Comp.2     Comp.3     Comp.4     Comp.5     Comp.6     Comp.7 
2.85168504 1.11024595 0.96673178 0.59194325 0.44904279 0.27139561 0.21542785 
    Comp.8     Comp.9    Comp.10    Comp.11 
0.13327352 0.10151906 0.01774623 0.01386325 

 11  variables and  14 observations.        #11个变量，14行数据

> comp1=pc$scores[,1]
> comp2=pc$scores[,2]
> comp3=pc$scores[,3]
> c=2.8516850/(2.8516850+1.1102459+0.96673178)*comp1+1.1102459/(2.8516850+1.1102459+0.96673178)*comp2+0.96673178/(2.8516850+1.1102459+0.96673178)*comp3
> rank=rank(c)
> sort=cbind(comp1,comp2,comp3,c,rank)
> View(sort)