Análisis de componentes principales

library(readxl)
datos <- read_excel("datos.xlsx")

datos2<-datos[,-c(1,2)]
row.names(datos2)<-datos$tanques

## Warning: Setting row names on a tibble is deprecated.

pc <- prcomp(datos2,
             center = TRUE,
            scale. = TRUE)
summary(pc)

## Importance of components:
##                           PC1    PC2    PC3     PC4     PC5     PC6
## Standard deviation     1.6978 1.3656 1.0060 0.46472 0.15240 0.03508
## Proportion of Variance 0.4804 0.3108 0.1687 0.03599 0.00387 0.00021
## Cumulative Proportion  0.4804 0.7913 0.9599 0.99592 0.99979 1.00000

biplot(pc)

graficar diferentes ejes

biplot(pc,choices=c(1,3))