Paquete economico 2026 Vectores

secretarias<-c("Educacion",",Bienestar",",Hacienda","Defensa Nacional")
secretarias
## [1] "Educacion"        ",Bienestar"       ",Hacienda"        "Defensa Nacional"
presupuesto_2026<-c(513015.6,674510,26792.1,170753.1)
presupuesto_2026
## [1] 513015.6 674510.0  26792.1 170753.1
presupuesto_2025<-c(465871.9, 579883.9,26732.7,158287.8 )
presupuesto_2025
## [1] 465871.9 579883.9  26732.7 158287.8

cbind y rbind

arreglo_paqueteconomico<-cbind(secretarias,presupuesto_2026,presupuesto_2025)
arreglo_paqueteconomico
##      secretarias        presupuesto_2026 presupuesto_2025
## [1,] "Educacion"        "513015.6"       "465871.9"      
## [2,] ",Bienestar"       "674510"         "579883.9"      
## [3,] ",Hacienda"        "26792.1"        "26732.7"       
## [4,] "Defensa Nacional" "170753.1"       "158287.8"
arreglo_paqueteconomico2<-rbind(secretarias,presupuesto_2026,presupuesto_2025)
arreglo_paqueteconomico2
##                  [,1]        [,2]         [,3]        [,4]              
## secretarias      "Educacion" ",Bienestar" ",Hacienda" "Defensa Nacional"
## presupuesto_2026 "513015.6"  "674510"     "26792.1"   "170753.1"        
## presupuesto_2025 "465871.9"  "579883.9"   "26732.7"   "158287.8"
class(secretarias)
## [1] "character"
class(presupuesto_2026)
## [1] "numeric"
class(presupuesto_2025)
## [1] "numeric"
summary(secretarias)
##    Length     Class      Mode 
##         4 character character
summary(presupuesto_2026)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   26792  134763  341884  346268  553389  674510
summary(presupuesto_2025)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   26733  125399  312080  307694  494375  579884

Secretarias ¿Qué secretaría tiene el mayor presupuesto en el 2026?

max(presupuesto_2026)
## [1] 674510

¿Es la misma que en el 2025?

max(presupuesto_2025)
## [1] 579883.9

¿Cuál secretaría tuvo la mayor variación absoluta y cual la menor?

presupuesto_2026-presupuesto_2025
## [1] 47143.7 94626.1    59.4 12465.3