A24 Solución en R de la tarea [A23]

library(knitr)
library(kableExtra)
tabla_pca <- data.frame(
  Componente = paste("Componente", 1:4),
  Autovalor = c(6.8, 1.5, 0.7, 0.4),
  `Varianza explicada` = c("68%", "15%", "7%", "4%"),
  `Acumulado` = c("68%", "83%", "90%", "94%")
)
kable(tabla_pca, align = "c") %>%
  kable_styling(full_width = FALSE, position = "center")

Componente	Autovalor	Varianza.explicada	Acumulado
Componente 1	6.8	68%	68%
Componente 2	1.5	15%	83%
Componente 3	0.7	7%	90%
Componente 4	0.4	4%	94%

tabla_carga <- data.frame(
  Variable = paste0("X", 1:10),
  F1 = c("0.89 → 0.7921", "0.92 → 0.8464", "0.85 → 0.7225", "-0.91 → 0.8281", 
                "0.88 → 0.7744", "0.40 → 0.1600", "0.35 → 0.1225", "0.82 → 0.6724", 
                "0.90 → 0.8100", "0.93 → 0.8649"),
  F2 = c("0.21 → 0.0441", "0.15 → 0.0225", "0.30 → 0.0900", "-0.1 → 0.0100", 
                "0.25 → 0.0625", "0.85 → 0.7225", "0.88 → 0.7744", "-0.2 → 0.0400", 
                "0.18 → 0.0324", "0.12 → 0.0144")
)

kable(tabla_carga, align = "c") %>%
  kable_styling(full_width = FALSE, position = "center")

Variable	F1	F2
X1	0.89 → 0.7921	0.21 → 0.0441
X2	0.92 → 0.8464	0.15 → 0.0225
X3	0.85 → 0.7225	0.30 → 0.0900
X4	-0.91 → 0.8281	-0.1 → 0.0100
X5	0.88 → 0.7744	0.25 → 0.0625
X6	0.40 → 0.1600	0.85 → 0.7225
X7	0.35 → 0.1225	0.88 → 0.7744
X8	0.82 → 0.6724	-0.2 → 0.0400
X9	0.90 → 0.8100	0.18 → 0.0324
X10	0.93 → 0.8649	0.12 → 0.0144

library(DiagrammeR)

# Crear gráfico
diagrama_f <- DiagrammeR("
graph LR

  IS((IS)) --> F1
  IS --> F2

  %% Cargas  F1
  
  F1 -->|12.01%| X1a_(X1)
  F1 -->|12.84%| X2a_(X2)
  F1 -->|10.96%| X3a_(X3)
  F1 -->|12.56%| X4a_(X4)
  F1 -->|11.75%| X5a_(X5)
  F1 -->|2.43%| X6a_(X6)
  F1 -->|1.86%| X7a_(X7)
  F1 -->|10.20%| X8a_(X8)
  F1 -->|12.29%| X9a_(X9)
  F1 -->|13.12%| X10a_(X10)
  

  %% Cargas F2
  
  F2 -->|2.43%| X1b_(X1)
  F2 -->|1.24%| X2b_(X2)
  F2 -->|4.96%| X3b_(X3)
  F2 -->|0.55%| X4b_(X4)
  F2 -->|3.45%| X5b_(X5)
  F2 -->|39.85%| X6b_(X6)
  F2 -->|42.71%| X7b_(X7)
  F2 -->|2.20%| X8b_(X8)
  F2 -->|1.78%| X9b_(X9)
  F2 -->|0.79%| X10b_(X10)
  


")

# Mostrar el diagrama
diagrama_f