编辑代码

data(iris)
newiris<-iris[,-5]
newiris$Sepal.Length
irpc <- prcomp(newiris, scale = TRUE)
irpc
eigen(cor(newiris))