1.读取数据
> data <- read.csv("主成分分析数据.csv")
> View(data)
> View(data)
> head(data)
2.数据标准化
> data1 <- data[,2:10]
> head(data1)
> data2<- prcomp(data1,scale =TRUE )
> View(data2)
> data2
3.均值
> data2$center
4.标准差
> data2$scale
5.矩阵(主成分上的值)
> data2$x
6.每个主成分的权重
> data2$rotation
7.data2列表图(变量的权重)
> biplot(data2,scale = 0)
8.数据解释
> summary(data2)