#文件在桌面,名为“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)
知识肤浅,如有错误请各位不吝指正