#文件在桌面，名为“seventeen_types.csv”，第一行为标题行
data <- read.csv('C:/Users/admin/Desktop/,header=T)
data
#pca分析
#cor=T时，输入矩阵为相关系数矩阵，每个元素是0<=x<=1的，对角线为1；
#cor=F时，输入矩阵为协方差矩阵，对角线为每个变量的方差；
#默认是cor=F的，而相关数矩阵就相当于先将数据标准化，然后再求协方差矩阵。
#将数据标准化，两种方式才是相同的。否则，cor=T比cor=F相当于多一个标准化过程。
type.pr<- princomp(data,cor=T)
#显示结果
summary(type.pr,loadings=T)
#预测，显示各样本主成份的值
pca_data <- predict(type.pr)
pca_data
#显示碎石图
screeplot(type.pr,type="lines")
#主成分分析散点图
biplot(type.pr)

知识肤浅，如有错误请各位不吝指正