ACP FactomineR

Este documento pretende realizar un Análisis de Componentes Principales usando el paquete FactoMineR.

Lo primero sería carga librería

library(FactoMineR)

xx <-data(decathlon)

Estadísticas Descriptivas

Se observan las estadísticas descriptivas de la base de datos decathlon

summary(decathlon)
##       100m         Long.jump       Shot.put       High.jump    
##  Min.   :10.44   Min.   :6.61   Min.   :12.68   Min.   :1.850  
##  1st Qu.:10.85   1st Qu.:7.03   1st Qu.:13.88   1st Qu.:1.920  
##  Median :10.98   Median :7.30   Median :14.57   Median :1.950  
##  Mean   :11.00   Mean   :7.26   Mean   :14.48   Mean   :1.977  
##  3rd Qu.:11.14   3rd Qu.:7.48   3rd Qu.:14.97   3rd Qu.:2.040  
##  Max.   :11.64   Max.   :7.96   Max.   :16.36   Max.   :2.150  
##       400m        110m.hurdle        Discus        Pole.vault   
##  Min.   :46.81   Min.   :13.97   Min.   :37.92   Min.   :4.200  
##  1st Qu.:48.93   1st Qu.:14.21   1st Qu.:41.90   1st Qu.:4.500  
##  Median :49.40   Median :14.48   Median :44.41   Median :4.800  
##  Mean   :49.62   Mean   :14.61   Mean   :44.33   Mean   :4.762  
##  3rd Qu.:50.30   3rd Qu.:14.98   3rd Qu.:46.07   3rd Qu.:4.920  
##  Max.   :53.20   Max.   :15.67   Max.   :51.65   Max.   :5.400  
##     Javeline         1500m            Rank           Points    
##  Min.   :50.31   Min.   :262.1   Min.   : 1.00   Min.   :7313  
##  1st Qu.:55.27   1st Qu.:271.0   1st Qu.: 6.00   1st Qu.:7802  
##  Median :58.36   Median :278.1   Median :11.00   Median :8021  
##  Mean   :58.32   Mean   :279.0   Mean   :12.12   Mean   :8005  
##  3rd Qu.:60.89   3rd Qu.:285.1   3rd Qu.:18.00   3rd Qu.:8122  
##  Max.   :70.52   Max.   :317.0   Max.   :28.00   Max.   :8893  
##    Competition
##  Decastar:13  
##  OlympicG:28  
##               
##               
##               
##

Gráfico plano Factorial

Es importante mencionar que se trabajo solo con las primeras 10 variables en la parte activa

PCA1 <- PCA(decathlon[,1:10], scale.unit=TRUE, ncp=5, graph=T)