我这里使用的是psych包，因此开始之前需要先在R中安装psych包。代码很简单，如下：

read.csv("F:/dataprara/data1.csv")   ###读入数据
library(psych) ###加载psych包
fa.parallel(data1, n.obs = NULL, fm="minres", fa="pc",main = "Parallel Analysis Scree Plots", n.iter=20,
error.bars=FALSE, SMC=T, ylabel=NULL, show.legend=F)  ###平行分析

结果如下：

http://s15/mw690/001UlQpvgy6QAziYEKaae&690

平行分析也可以使用，获取两种分析方法的结果：

fa.parallel.poly(data1，n.iter=10,SMC=TRUE,  fm = "minres",correct=TRUE,sim=FALSE,fa="both",global=TRUE) ###主要因子，输出信息更详细

http://s7/mw690/001UlQpvgy6QAzqhf2C96&690