data(wine)
wine_data <- wine[, -1]
# Tu código aquí...Hoja de Prácticas: PCA
Álgebra aplicada
Realiza los siguientes ejercicios utilizando R. Entrega un documento (PDF generado con Quarto) que incluya el código, los resultados y una breve explicación razonada de cada paso, conectando los resultados con los conceptos de Álgebra Lineal vistos en la asignatura.
Ejercicios Teóricos y de Reflexión
Considerando un dataset con 13 variables numéricas (como el dataset wine que veremos luego):
- ¿Cómo describirías el espacio vectorial en el que reside cada observación antes de aplicar el PCA? ¿Cuál es la dimensión de este espacio?
- Si decidimos retener solo las 3 primeras componentes principales, ¿qué estamos haciendo desde el punto de vista del Álgebra Lineal (subespacios, proyecciones)?
El PCA genera nuevas componentes principales que forman una nueva base para el espacio de los datos.
- ¿Por qué esta nueva base es ortogonal (o incluso ortonormal)?
- ¿Cómo se relaciona la construcción de esta base con el proceso de diagonalización de una matriz simétrica (la matriz de covarianza)?
Los autovalores \(\lambda_i\) de la matriz de covarianza nos indican la varianza explicada en cada dirección.
- Si la suma de todos los autovalores es \(S\), ¿qué representa el ratio \(\lambda_i / S\)?
- ¿Por qué el autovector asociado al mayor autovalor es el más importante para el PCA?
Ejercicios Prácticos: Dataset Wine
Para los siguientes ejercicios, utilizaremos el dataset wine (del paquete HDclassif), que contiene análisis químicos de 178 vinos italianos divididos en 3 cultivares.
Carga el dataset wine, elimina la primera columna (que contiene la clase) y realiza una breve exploración estadística. ¿Crees que las variables están en la misma escala? Justifica si es necesario estandarizar.
Realiza el PCA sobre wine_data asegurando que los datos se escalen (scale = TRUE).
- ¿Cuánta varianza explican las dos primeras componentes?
- ¿Cuántas componentes necesitarías para retener al menos el 80% de la información original? Dibuja el Scree Plot.
Examina la matriz de rotación (rotation).
- Identifica las 3 variables que más contribuyen (positiva o negativamente) a la PC1.
- Basándote en esto, ¿qué crees que intenta “medir” la primera componente en el perfil químico de un vino?
Genera un biplot del análisis.
- Observa las flechas de
Total phenolsyFlavanoids. ¿Qué puedes decir sobre su correlación? - Identifica si hay algún grupo de vinos que se separe claramente del resto. Colorea los puntos por la variable
classoriginal para verificarlo.
Toma la primera observación del dataset. Multiplica sus valores escalados por la primera columna de la matriz de rotación. Compara el resultado con el primer “score” de esa observación en acp$x. ¿Qué has calculado exactamente?