源题文件上传，并加密

第1题

（1）

p<-read.csv("pp.csv")
pp<-as.matrix(p)
View(pp)

(2)

pr<-princomp(pp,cor=T)
prloadings[,1]#第一主成分的各变量的载荷 prloadings[3,1]#变量a3的第一主成分载荷为-0.4133938

(3)

fa<-factanal(pp,3,rot="varimax",scores="Bartlett")

(4)

faloadings[,1]#第一公因子的各变量的载荷 faloadings[4,1]##变量a4的第一主成分载荷为0.1799759

(5)

fa$scores[10,1:2]

第十个样本的第一公因子的得分与第二公因子的得分

Factor1 Factor2

-0.7452711 0.7273960

第2题

(1)

head(iris,2)
tail(iris,3)

(2)

ca<-cancor(iris[,1:2],iris[,3:4])
ca$cor[1]#第一大典型相关系数为0.940969

(3)

(4)

attach(iris)
barplot(table(Sepal.Length),xlab = "花萼长",ylab="频数",main="图2")

(5)

attach(iris)
pdf("61--",family="GB1")
barplot(table(Sepal.Length),xlab = "花萼长",ylab="频数",main="图2")
dev.off()