R 语言 主成分分析案例demo

某市13个工业部门8个指标的案例；

# Title     : TODO
# Objective : TODO
# Created by: fuguowen
# Created on: 2018/12/4
#读取数据
hangye<-read.table("1.txt");
print(hangye)
#### 作主成分分析，并显示结果
hangye.pr<-princomp(hangye, cor=TRUE)
print(summary(hangye.pr, loadings=TRUE))
print(predict(hangye.pr))
biplot(hangye.pr)