本文共 342 字，大约阅读时间需要 1 分钟。

library(psych)mydata <- iris[,1:4]# 计算最优主成分个数mydata.screePlotsModel <- fa.parallel(mydata, fa="pc", n.iter=100, show.legend=F, main="崖底碎石图");# 主成分个数n=mydata.screePlotsModel$ncomp;# 主成分分析函数 模型mydata.pr <- princomp(mydata, scores=T, cor = TRUE)#勾画碎石头screeplot(mydata.pr,type="line",mian="碎石图",lwd=2)summary(mydata.pr,loadings = TRUE)

reference:

转载地址：http://kie.baihongyu.com/