Con base en la información proporcionada en el paquete económico 2026, se crearán los vectores correspondientes para analizar los presupuestos de las diferentes secretarías en los años 2025 y 2026.

# Creamos cada uno de los vectores solicitados
Secretarias <- c("Educación", "Bienestar", "Hacienda", "Defensa Nacional")
Presupuesto_2025 <- c(465871.9, 579883.9, 26732.7, 158287.8)
Presupuesto_2026 <- c(513015.6, 674510.0, 26792.1, 170753.1)

# Unimos los vectores con cbind
Datos_Economicos <- cbind(Secretarias, Presupuesto_2025, Presupuesto_2026)
Datos_Economicos
##      Secretarias        Presupuesto_2025 Presupuesto_2026
## [1,] "Educación"        "465871.9"       "513015.6"      
## [2,] "Bienestar"        "579883.9"       "674510"        
## [3,] "Hacienda"         "26732.7"        "26792.1"       
## [4,] "Defensa Nacional" "158287.8"       "170753.1"
# Aplicamos class() a cada vector
class(Secretarias)
## [1] "character"
class(Presupuesto_2025)
## [1] "numeric"
class(Presupuesto_2026)
## [1] "numeric"
# Aplicamos summary() a cada variable numérica
summary(Presupuesto_2025)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   26733  125399  312080  307694  494375  579884
summary(Presupuesto_2026)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   26792  134763  341884  346268  553389  674510

A continuación, se responderán las preguntas específicas sobre qué secretaría tiene el mayor presupuesto y cuál presenta la mayor variación entre 2025 y 2026.

# Respuesta a las preguntas
# ¿Qué secretaría tiene el mayor presupuesto en el 2026?
Secretarias[which.max(Presupuesto_2026)]
## [1] "Bienestar"
# ¿Es la misma que en el 2025?
Secretarias[which.max(Presupuesto_2025)]
## [1] "Bienestar"
# Calcular variación absoluta
Variacion_Absoluta <- Presupuesto_2026 - Presupuesto_2025
Variacion_Absoluta
## [1] 47143.7 94626.1    59.4 12465.3
# ¿Cuál secretaría tuvo la mayor variación absoluta?
Secretarias[which.max(Variacion_Absoluta)]
## [1] "Bienestar"
# ¿Cuál secretaría tuvo la menor variación absoluta?
Secretarias[which.min(Variacion_Absoluta)]
## [1] "Hacienda"

Conclusión: El análisis muestra que Bienestar mantiene el mayor presupuesto en ambos años, y también presenta la mayor variación absoluta, mientras que Hacienda tiene la menor variación en su presupuesto K