主成分的计算步骤：
主成分的代码实现：
# 设置工作空间
# 把“数据及程序”文件夹拷贝到F盘下，再用setwd设置工作空间setwd("F:/数据及程序/chapter4/示例程序")
# 数据读取
inputfile <- read.csv('./data/principal_component.csv', header = FALSE)
# 主成分分析
PCA <- princomp(inputfile, cor = FALSE)
names(PCA) # 查看输出项
(PCA$sdev) ^ 2 # 主成分特征根
summary(PCA) # 主成分贡献率
PCA$loadings # 主成分载荷
PCA$scores # 主成分得分
请参考：R语言数据分析与挖掘实战