# Chequeo de codigo_departamento_indec en base_mineco
str(base_min_eco_2023$codigo_departamento_indec)
##  num [1:341426] 2000 2000 2000 2000 2000 2000 2000 2000 2000 2000 ...
# Chequeo de `codigo_departamento_indec` en `basemapa`
str(basemapa$codigo_departamento_indec)
##  chr [1:523] "02001" "02002" "02003" "02004" "06091" "74056" "02005" ...
basemapa$codigo_departamento_indec <- as.numeric(basemapa$codigo_departamento_indec)