Título

Subtítulo

Subsubtitulo

texto normal texto negrita texto cursiva

enfasis tipo 1 > enfasis tipo 2

#aqui van los codigos de r

x<-c(1:10)
x
##  [1]  1  2  3  4  5  6  7  8  9 10

Carga de las librerias

# cargar la base de aduanas de dic 2024
library(readr)
## Warning: package 'readr' was built under R version 4.3.3

Carga de las bases

adu11_11 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2011_NOVIEMBRE.csv", dec=",")
adu12_11 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2012_NOVIEMBRE.csv", dec=",")
adu13_11 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2013_NOVIEMBRE.csv", dec=",")
adu14_11 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2014_NOVIEMBRE.csv", dec=",")
adu15_11 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2015_NOVIEMBRE.csv", dec=",")
adu16_11 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2016_NOVIEMBRE.csv", dec=",")
adu17_11 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2017_NOVIEMBRE.csv", dec=",")
adu18_11 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2018_NOVIEMBRE.csv", dec=",")
adu19_11 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2019_NOVIEMBRE.csv", dec=",")
adu20_11 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2020_NOVIEMBRE.csv", dec=",")
adu21_11 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2021_NOVIEMBRE.csv", dec=",")
adu22_11 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2022_NOVIEMBRE.csv", dec=",")
adu23_11 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2023_NOVIEMBRE.csv", dec=",")
## Warning in scan(file = file, what = what, sep = sep, quote = quote, dec = dec,
## : EOF within quoted string
adu24_11 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2024_NOVIEMBRE.csv", dec=",")
## Warning in scan(file = file, what = what, sep = sep, quote = quote, dec = dec,
## : EOF within quoted string
adu11_12 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2011_DICIEMBRE.csv", dec=",")
adu12_12 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2012_DICIEMBRE.csv", dec=",")
adu13_12 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2013_DICIEMBRE.csv", dec=",")
adu14_12 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2014_DICIEMBRE.csv", dec=",")
adu15_12 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2015_DICIEMBRE.csv", dec=",")
adu16_12 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2016_DICIEMBRE.csv", dec=",")
adu17_12 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2017_DICIEMBRE.csv", dec=",")
adu18_12 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2018_DICIEMBRE.csv", dec=",")
adu19_12 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2019_DICIEMBRE.csv", dec=",")
adu20_12 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2020_DICIEMBRE.csv", dec=",")
adu21_12 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2021_DICIEMBRE.csv", dec=",")
adu22_12 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2022_DICIEMBRE.csv", dec=",")
adu23_12 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2023_DICIEMBRE.csv", dec=",")
adu24_12 <- read.csv("G:/Mi unidad/ADUANASPY/aduana_2024_DICIEMBRE.csv", dec=",")
## Warning in scan(file = file, what = what, sep = sep, quote = quote, dec = dec,
## : EOF within quoted string

Append de las bases cargadas

# juntar todas las tablas en una sola base

adu12a24=rbind(adu11_11,
               adu12_11,
               adu13_11,
               adu14_11,
               adu15_11,
               adu16_11,
               adu17_11,
               adu18_11,
               adu19_11,
               adu20_11,
               adu21_11,
               adu22_11,
               adu23_11,
               adu24_11,
               adu11_12,
               adu12_12,
               adu13_12,
               adu14_12,
               adu15_12,
               adu16_12,
               adu17_12,
               adu18_12,
               adu19_12,
               adu20_12,
               adu21_12,
               adu22_12,
               adu23_12,
               adu24_12
               )

nrow(adu12a24)
## [1] 2703366
cbind(table(adu12a24$AÑO, adu12a24$MES))
##      DICIEMBRE NOVIEMBRE
## 2011     65281     74272
## 2012     64732     68798
## 2013     74367     72027
## 2014     80748     78173
## 2015     74307     76673
## 2016     91475     89601
## 2017     98324     98460
## 2018     93850    109498
## 2019    100320    108360
## 2020    106449    101620
## 2021    124376    136479
## 2022    136437    145475
## 2023    159919     73225
## 2024    179856     20264
cbind(table(adu12a24$AÑO, adu12a24$OPERACION))
##      EXPORTACION IMPORTACION
## 2011        7897      131656
## 2012        8997      124533
## 2013       10117      136277
## 2014       13928      144993
## 2015       14316      136664
## 2016       17472      163604
## 2017       23205      173579
## 2018       26539      176809
## 2019       32761      175919
## 2020       42991      165078
## 2021       69796      191059
## 2022       93533      188379
## 2023       79908      153236
## 2024       54380      145740
barplot(cbind(table(adu12a24$OPERACION, adu12a24$AÑO)))

Guardado de la base final

#write.csv(adu12a24,"G:/Mi unidad/ADUANASPY/aduana_base_compilada.csv")