5752 发表于 2017-11-28 11:08 
summary(lmfit)$coef[,"Estimate"]
你好 请问下面标红的这一行怎么提取呢?抱歉打扰了
> 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