El siguiente proyecto tiene como objetivo realizar un mapa de Colombia identificando las coordenadas de sus puntos extremos, sus 32 departamentos y sus municipios. Sin embargo este proyecto va a estar enfocado en el departamento de Bolívar, conociendo así sus coordenadas, departamentos vecinos y sus municipios. Por lo tanto antes de empezar con el mapa de Colombia se van a tener unos conocimientos previos según un ejemplo en Rstudio.

Ejemplo de RStudio:

plot(cars)

Antes de comenzar con la realización de mapas, es necesario instalar previamente ciertas librerías, como lo son tidyverse, sf, GADMTools y mapview.

Llamado de librerías

library(tidyverse)
library(sf)
library(GADMTools)
library(mapview)

Un ejemplo de un mapa de Carolina del Norte, donde se muestran sus 100 condados y el número de nacimientos en cada uno en el año 1974.

system.file("gpkg/nc.gpkg", package = "sf") %>%
  read_sf() %>%
  st_transform(32119) %>%
  select(BIR74) %>%
  plot(graticule = TRUE, axes = TRUE)

A continuación una tabla donde se hace una interpretación del mapa anterior, los datos que están ahí.

(read_sf(system.file("gpkg/nc.gpkg", package = "sf")))
Simple feature collection with 100 features and 14 fields
geometry type:  MULTIPOLYGON
dimension:      XY
bbox:           xmin: -84.32385 ymin: 33.88199 xmax: -75.45698 ymax: 36.58965
epsg (SRID):    4267
proj4string:    +proj=longlat +datum=NAD27 +no_defs

Ahora si, entrando en materia se van a obtener los datos administrativos del país Colombia, donde se ven las coordenadas de los estremos del país.

Como ya se instaló la librería GADMTools, se va a cargar la libreía.

library(GADMTools)
COL <- gadm_sf_loadCountries(c("COL"), level=0, basefile="./")
COL
$basename
[1] "./"

$sf
Simple feature collection with 1 feature and 2 fields
geometry type:  MULTIPOLYGON
dimension:      XY
bbox:           xmin: -81.84153 ymin: -4.228429 xmax: -66.87033 ymax: 15.91247
epsg (SRID):    4326
proj4string:    +proj=longlat +datum=WGS84 +no_defs
  ISO   NAME_0                       geometry
1 COL Colombia MULTIPOLYGON (((-78.97958 1...

$level
[1] 0

$hasBGND
[1] FALSE

attr(,"class")
[1] "gadm_sf"

Con los datos obtenidos:

Ahora se va a plotear a Colombia a nivel 0

gadm_plot(COL)

Posteriormente se van a extraer departamentos (i.e. level 1)

DEPTOS <- gadm_sf_loadCountries(c("COL"), level = 1, basefile = "./")
gadm_plot(DEPTOS)

Y por último se van a plotear sus municipios (nivel 2)

MUNICIPIOS <- gadm_sf_loadCountries(c("COL"), level = 2, basefile = "./")
gadm_plot(MUNICIPIOS)

Como se comentó anteriormente, ahora se va a hacer énfasis en el departamento de Bolívar.

Ahora se va a plotear al departamento Bolívar

Bolívar <- gadm_subset(DEPTOS, level=1, regions="Bolívar")
gadm_plot(Bolívar) %>% gadm_showNorth("tl") %>% gadm_showScale("bl")

Antes de continuar con el departamento, se va a obtener una lista de los departamentos y municipios de Colombia.

Lista de los departamentos

listNames(DEPTOS, 1)
 [1] "Amazonas"                 "Antioquia"               
 [3] "Arauca"                   "Atlántico"               
 [5] "Bolívar"                  "Boyacá"                  
 [7] "Caldas"                   "Caquetá"                 
 [9] "Casanare"                 "Cauca"                   
[11] "Cesar"                    "Chocó"                   
[13] "Córdoba"                  "Cundinamarca"            
[15] "Guainía"                  "Guaviare"                
[17] "Huila"                    "La Guajira"              
[19] "Magdalena"                "Meta"                    
[21] "Nariño"                   "Norte de Santander"      
[23] "Putumayo"                 "Quindío"                 
[25] "Risaralda"                "San Andrés y Providencia"
[27] "Santander"                "Sucre"                   
[29] "Tolima"                   "Valle del Cauca"         
[31] "Vaupés"                   "Vichada"

Lista de los municipios de Colombia

listNames(MUNICIPIOS, 2)
  [1] "El Encanto"                  "La Chorrera"                
  [3] "La Pedrera"                  "Leticia"                    
  [5] "Mirití-Paraná"               "Puerto Nariño"              
  [7] "Puerto Santander"            "Tarapacá"                   
  [9] "Abejorral"                   "Abriaquí"                   
 [11] "Alejandría"                  "Amagá"                      
 [13] "Amalfi"                      "Andes"                      
 [15] "Angelópolis"                 "Angostura"                  
 [17] "Anorí"                       "Anzá"                       
 [19] "Apartadó"                    "Arboletes"                  
 [21] "Argelia"                     "Armenia"                    
 [23] "Barbosa"                     "Bello"                      
 [25] "Belmira"                     "Betania"                    
 [27] "Betulia"                     "Bolívar"                    
 [29] "Briceño"                     "Buriticá"                   
 [31] "Cáceres"                     "Caicedo"                    
 [33] "Caldas"                      "Campamento"                 
 [35] "Cañasgordas"                 "Caracolí"                   
 [37] "Caramanta"                   "Carepa"                     
 [39] "Carolina del Principe"       "Caucasia"                   
 [41] "Chigorodó"                   "Cisneros"                   
 [43] "Cocorná"                     "Concepción"                 
 [45] "Concordia"                   "Copacabana"                 
 [47] "Dabeiba"                     "Don Matías"                 
 [49] "Ebéjico"                     "El Bagre"                   
 [51] "El Carmen de Viboral"        "El Santuario"               
 [53] "Entrerríos"                  "Envigado"                   
 [55] "Fredonia"                    "Frontino"                   
 [57] "Giraldo"                     "Girardota"                  
 [59] "Gómez Plata"                 "Granada"                    
 [61] "Guadalupe"                   "Guarne"                     
 [63] "Guatapé"                     "Heliconia"                  
 [65] "Hispania"                    "Itagüí"                     
 [67] "Ituango"                     "Jardín"                     
 [69] "Jericó"                      "La Ceja"                    
 [71] "La Estrella"                 "La Unión de Sucre"          
 [73] "Liborina"                    "Maceo"                      
 [75] "Marinilla"                   "Medellín"                   
 [77] "Montebello"                  "Murindó"                    
 [79] "Mutatá"                      "Nariño"                     
 [81] "Nechí"                       "Necoclí"                    
 [83] "Olaya"                       "Peñol"                      
 [85] "Pequé"                       "Pueblorrico"                
 [87] "Puerto Berrío"               "Puerto Nare"                
 [89] "Puerto Triunfo"              "Remedios"                   
 [91] "Retiro"                      "Rionegro"                   
 [93] "Sabanalarga"                 "Sabaneta"                   
 [95] "Salgar"                      "San Andrés de Cuerquia"     
 [97] "San Carlos"                  "San Francisco"              
 [99] "San Jerónimo"                "San José de la Montaña"     
[101] "San Juan de Urabá"           "San Luis"                   
[103] "San Pedro de los Milagros"   "San Pedro de Urabá"         
[105] "San Rafael"                  "San Roque"                  
[107] "San Vicente"                 "Santa Bárbara"              
[109] "Santa Fe de Antioquia"       "Santa Rosa de Osos"         
[111] "Santo Domingo"               "Segovia"                    
[113] "Sonsón"                      "Sopetrán"                   
[115] "Támesis"                     "Tarazá"                     
[117] "Tarso"                       "Titiribí"                   
[119] "Toledo"                      "Turbo"                      
[121] "Uramita"                     "Urrao"                      
[123] "Valdivia"                    "Valparaíso"                 
[125] "Vegachí"                     "Venecia"                    
[127] "Vigía del Fuerte"            "Yalí"                       
[129] "Yarumal"                     "Yolombó"                    
[131] "Yondó"                       "Zaragoza"                   
[133] "Arauca"                      "Arauquita"                  
[135] "Cravo Norte"                 "Fortul"                     
[137] "Puerto Rondón"               "Saravena"                   
[139] "Tame"                        "Baranoa"                    
[141] "Barranquilla"                "Campo de la Cruz"           
[143] "Candelaria"                  "Galapa"                     
[145] "Juan de Acosta"              "Luruaco"                    
[147] "Malambo"                     "Manatí"                     
[149] "Palmar de Varela"            "Piojó"                      
[151] "Polonuevo"                   "Ponedera"                   
[153] "Puerto Colombia"             "Repelón"                    
[155] "Sabanagrande"                "Santa Lucía"                
[157] "Santo Tomás"                 "Soledad"                    
[159] "Suan"                        "Tubará"                     
[161] "Usiacurí"                    "Achí"                       
[163] "Altos del Rosario"           "Arjona"                     
[165] "Barranco de Loba"            "Calamar"                    
[167] "Cantagallo"                  "Cartagena de Indias"        
[169] "Cicuco"                      "Córdoba"                    
[171] "El Carmen de Bolívar"        "El Guamo"                   
[173] "Hatillo de Loba"             "Mahates"                    
[175] "Margarita"                   "María la Baja"              
[177] "Mompós"                      "Montecristo"                
[179] "Morales"                     "Pinillos"                   
[181] "Río Viejo"                   "San Estanislao de Kostka"   
[183] "San Fernando"                "San Jacinto"                
[185] "San Juan Nepomuceno"         "San Martín de Loba"         
[187] "San Pablo"                   "Santa Catalina"             
[189] "Santa Rosa"                  "Santa Rosa del Sur"         
[191] "Simití"                      "Soplaviento"                
[193] "Talaigua Nuevo"              "Turbaco"                    
[195] "Turbaná"                     "Villanueva"                 
[197] "Zambrano"                    "Almeida"                    
[199] "Aquitania"                   "Arcabuco"                   
[201] "Belén"                       "Berbeo"                     
[203] "Beteitiva"                   "Boavita"                    
[205] "Boyacá"                      "Buenavista"                 
[207] "Busbanza"                    "Campohermoso"               
[209] "Cerinza"                     "Chinavita"                  
[211] "Chiquinquirá"                "Chíquiza"                   
[213] "Chiscas"                     "Chita"                      
[215] "Chitaraque"                  "Chivatá"                    
[217] "Chivor"                      "Ciénaga"                    
[219] "Cómbita"                     "Coper"                      
[221] "Corrales"                    "Covarachía"                 
[223] "Cubará"                      "Cucaita"                    
[225] "Cuítiva"                     "Duitama"                    
[227] "El Cocuy"                    "El Espino"                  
[229] "Firavitoba"                  "Floresta"                   
[231] "Gachantivá"                  "Gámeza"                     
[233] "Garagoa"                     "Guacamayas"                 
[235] "Guateque"                    "Guayatá"                    
[237] "Guicán"                      "Izá"                        
[239] "Jenesano"                    "La Capilla"                 
[241] "La Uvita"                    "La Victoria"                
[243] "Labranzagrande"              "Macanal"                    
[245] "Maripí"                      "Miraflores"                 
[247] "Mongua"                      "Monguí"                     
[249] "Moniquirá"                   "Motavita"                   
[251] "Muzo"                        "Nobsa"                      
[253] "Nuevo Colón"                 "Oicatá"                     
[255] "Otanche"                     "Pachavita"                  
[257] "Páez"                        "Paipa"                      
[259] "Pajarito"                    "Panqueba"                   
[261] "Pauna"                       "Paya"                       
[263] "Paz de Río"                  "Pesca"                      
[265] "Pisba"                       "Puerto Boyacá"              
[267] "Quípama"                     "Ramiriquí"                  
[269] "Ráquira"                     "Rondón"                     
[271] "Saboyá"                      "Sáchica"                    
[273] "Samacá"                      "San Eduardo"                
[275] "San José de Pare"            "San Luis de Gaceno"         
[277] "San Mateo"                   "San Miguel de Sema"         
[279] "San Pablo de Borbur"         "Santa María"                
[281] "Santa Rosa de Viterbo"       "Santa Sofía"                
[283] "Santana"                     "Sativanorte"                
[285] "Sativasur"                   "Siachoque"                  
[287] "Soatá"                       "Socha"                      
[289] "Socotá"                      "Sogamoso"                   
[291] "Somondoco"                   "Sora"                       
[293] "Soracá"                      "Sotaquirá"                  
[295] "Susacón"                     "Sutamarchán"                
[297] "Sutatenza"                   "Tasco"                      
[299] "Tenza"                       "Tibaná"                     
[301] "Tibasosa"                    "Tinjacá"                    
[303] "Tipacoque"                   "Toca"                       
[305] "Toguí"                       "Topagá"                     
[307] "Tota"                        "Tunja"                      
[309] "Tunungua"                    "Turmequé"                   
[311] "Tuta"                        "Tutazá"                     
[313] "Umbita"                      "Ventaquemada"               
[315] "Villa de Leyva"              "Viracachá"                  
[317] "Zetaquirá"                   "Aguadas"                    
[319] "Anserma"                     "Aranzazú"                   
[321] "Belalcázar"                  "Chinchiná"                  
[323] "Filadelfia"                  "La Dorada"                  
[325] "La Merced"                   "Manizales"                  
[327] "Manzanares"                  "Marmato"                    
[329] "Marquetalia"                 "Marulanda"                  
[331] "Neira"                       "Pácora"                     
[333] "Palestina"                   "Pensilvania"                
[335] "Riosucio"                    "Risaralda"                  
[337] "Salamina"                    "Samaná"                     
[339] "Supía"                       "Victoria"                   
[341] "Villamaría"                  "Viterbo"                    
[343] "Albania"                     "Belén de los Andaquies"     
[345] "Cartagena del Chairá"        "Curillo"                    
[347] "El Doncello"                 "El Paujíl"                  
[349] "Florencia"                   "La Montañita"               
[351] "Milán"                       "Morelia"                    
[353] "Puerto Rico"                 "San José del Fragua"        
[355] "San Vicente del Caguán"      "Solano"                     
[357] "Aguazul"                     "Chámeza"                    
[359] "Hato Corozal"                "La Salina"                  
[361] "Maní"                        "Monterrey"                  
[363] "Nunchía"                     "Orocué"                     
[365] "Paz de Ariporo"              "Pore"                       
[367] "Recetor"                     "Sácama"                     
[369] "San Luis de Palenque"        "Támara"                     
[371] "Tauramena"                   "Trinidad"                   
[373] "Yopal"                       "Almaguer"                   
[375] "Balboa"                      "Buenos Aires"               
[377] "Cajibío"                     "Caldonó"                    
[379] "Caloto"                      "Corinto"                    
[381] "El Tambo"                    "Guapí"                      
[383] "Inzá"                        "Jambaló"                    
[385] "La Sierra"                   "La Vega"                    
[387] "López de Micay"              "Mercaderes"                 
[389] "Miranda"                     "Padilla"                    
[391] "Patía"                       "Piendamó"                   
[393] "Popayán"                     "Puerto Tejada"              
[395] "Puracé"                      "Rosas"                      
[397] "San Sebastián"               "Santander de Quilichao"     
[399] "Silvia"                      "Sotará"                     
[401] "Suárez"                      "Timbío"                     
[403] "Timbiquí"                    "Toribío"                    
[405] "Totoró"                      "Aguachica"                  
[407] "Agustín Codazzi"             "Astrea"                     
[409] "Becerril"                    "Bosconia"                   
[411] "Chimichagua"                 "Chiriguaná"                 
[413] "Curumaní"                    "El Copey"                   
[415] "El Paso"                     "Gamarra"                    
[417] "González"                    "La Gloria"                  
[419] "La Jagua de Ibirico"         "La Paz"                     
[421] "Manaure"                     "Pailitas"                   
[423] "Pelaya"                      "Río de Oro"                 
[425] "San Alberto"                 "San Diego"                  
[427] "San Martín"                  "Tamalameque"                
[429] "Valledupar"                  "Acandí"                     
[431] "Alto Baudó"                  "Bagadó"                     
[433] "Bahía Solano"                "Bajo Baudó"                 
[435] "Bojayá"                      "Condoto"                    
[437] "El Cantón del San Pablo"     "El Carmen de Atrato"        
[439] "El Litoral del San Juan"     "Istmina"                    
[441] "Juradó"                      "Lloró"                      
[443] "Novita"                      "Nuquí"                      
[445] "Quibdó"                      "San José del Palmar"        
[447] "Sipí"                        "Tadó"                       
[449] "Unguía"                      "Ayapel"                     
[451] "Canalete"                    "Cereté"                     
[453] "Chimá"                       "Chinú"                      
[455] "Ciénaga de Oro"              "Los Córdobas"               
[457] "Momil"                       "Moñitos"                    
[459] "Montelíbano"                 "Montería"                   
[461] "Planeta Rica"                "Pueblo Nuevo"               
[463] "Puerto Escondido"            "Puerto Libertador"          
[465] "Purísima"                    "San Andrés de Sotavento"    
[467] "San Antero"                  "San Bernardino de Sahagún"  
[469] "San Bernardo del Viento"     "San Pelayo"                 
[471] "Santa Cruz de Lorica"        "Tierralta"                  
[473] "Valencia"                    "Agua de Dios"               
[475] "Albán"                       "Anapoima"                   
[477] "Anolaima"                    "Apulo"                      
[479] "Arbeláez"                    "Beltrán"                    
[481] "Bituima"                     "Bojacá"                     
[483] "Cabrera"                     "Cachipay"                   
[485] "Cajicá"                      "Caparrapí"                  
[487] "Cáqueza"                     "Carmen de Carupa"           
[489] "Chaguaní"                    "Chía"                       
[491] "Chipaque"                    "Choachí"                    
[493] "Chocontá"                    "Cogua"                      
[495] "Cota"                        "Cucunubá"                   
[497] "El Colegio"                  "El Peñon"                   
[499] "Facatativá"                  "Fómeque"                    
[501] "Fosca"                       "Funza"                      
[503] "Fúquene"                     "Fusagasugá"                 
[505] "Gachalá"                     "Gachancipá"                 
[507] "Gachetá"                     "Gama"                       
[509] "Girardot"                    "Guachetá"                   
[511] "Guaduas"                     "Guasca"                     
[513] "Guataquí"                    "Guatavita"                  
[515] "Guayabal de Síquima"         "Guayabetal"                 
[517] "Gutiérrez"                   "Jerusalén"                  
[519] "Junín"                       "La Calera"                  
[521] "La Mesa"                     "La Palma"                   
[523] "La Peña"                     "Lenguazaque"                
[525] "Machetá"                     "Madrid"                     
[527] "Manta"                       "Medina"                     
[529] "Mosquera"                    "Nemocón"                    
[531] "Nilo"                        "Nimaima"                    
[533] "Nocaima"                     "Pacho"                      
[535] "Paime"                       "Pandi"                      
[537] "Paratebueno"                 "Pasca"                      
[539] "Puerto Salgar"               "Pulí"                       
[541] "Quebradanegra"               "Quetame"                    
[543] "Quipile"                     "Ricaurte"                   
[545] "San Antonio del Tequendama"  "San Bernardo"               
[547] "San Cayetano"                "San Juan de Río Seco"       
[549] "Santafé de Bogotá"           "Sasaima"                    
[551] "Sesquilé"                    "Sibaté"                     
[553] "Silvania"                    "Simijaca"                   
[555] "Soacha"                      "Sopó"                       
[557] "Subachoque"                  "Suesca"                     
[559] "Supatá"                      "Susa"                       
[561] "Sutatausa"                   "Tabio"                      
[563] "Tausa"                       "Tena"                       
[565] "Tenjo"                       "Tibacuy"                    
[567] "Tibirita"                    "Tocaima"                    
[569] "Tocancipá"                   "Topaipí"                    
[571] "Ubalá"                       "Ubaque"                     
[573] "Une"                         "Utica"                      
[575] "Vergara"                     "Vianí"                      
[577] "Villa de San Diego de Ubaté" "Villagómez"                 
[579] "Villapinzón"                 "Villeta"                    
[581] "Viotá"                       "Yacopí"                     
[583] "Zipacón"                     "Zipaquirá"                  
[585] "Barranco Minas"              "Cacahual"                   
[587] "La Guadalupe"                "Pana Pana"                  
[589] "Puerto Inírida"              "San Felipe"                 
[591] "El Retorno"                  "San José del Guaviare"      
[593] "Acevedo"                     "Agrado"                     
[595] "Aipe"                        "Algeciras"                  
[597] "Altamira"                    "Baraya"                     
[599] "Campoalegre"                 "Colombia"                   
[601] "Elías"                       "Garzón"                     
[603] "Gigante"                     "Hobo"                       
[605] "Iquira"                      "Isnos"                      
[607] "La Argentina"                "La Plata"                   
[609] "Nátaga"                      "Neiva"                      
[611] "Oporapa"                     "Paicol"                     
[613] "Palermo"                     "Pital"                      
[615] "Pitalito"                    "Rivera"                     
[617] "Saladoblanco"                "San Agustín"                
[619] "Suaza"                       "Tarquí"                     
[621] "Tello"                       "Teruel"                     
[623] "Tesalia"                     "Timaná"                     
[625] "Villavieja"                  "Yaguará"                    
[627] "Barrancas"                   "El Molino"                  
[629] "Fonseca"                     "Maicao"                     
[631] "Riohacha"                    "San Juan del Cesar"         
[633] "Uribia"                      "Urumita"                    
[635] "Aracataca"                   "Ariguaní"                   
[637] "Cerro de San Antonio"        "Chivolo"                    
[639] "El Banco"                    "El Piñón"                   
[641] "Fundación"                   "Guamal"                     
[643] "Pedraza"                     "Pivijay"                    
[645] "Plato"                       "Pueblo Viejo"               
[647] "Remolino"                    "San Sebastián de Buenavista"
[649] "San Zenón"                   "Santa Ana"                  
[651] "Santa Marta (Dist. Esp.)"    "Tenerife"                   
[653] "Acacías"                     "Barranca de Upía"           
[655] "Cabuyaro"                    "Castilla la Nueva"          
[657] "Cumaral"                     "El Calvario"                
[659] "El Castillo"                 "El Dorado"                  
[661] "Fuente de Oro"               "La Macarena"                
[663] "La Uribe"                    "Lejanías"                   
[665] "Mapiripán"                   "Mesetas"                    
[667] "Puerto Concordia"            "Puerto Gaitán"              
[669] "Puerto Lleras"               "Puerto López"               
[671] "Restrepo"                    "San Carlos de Guaroa"       
[673] "San Juan de Arama"           "San Juanito"                
[675] "San Luis de Cubarral"        "Villavicencio"              
[677] "Vista Hermosa"               "Aldana"                     
[679] "Ancuyá"                      "Arboleda"                   
[681] "Barbacoas"                   "Buesaco"                    
[683] "Chachagüí"                   "Colón"                      
[685] "Consacá"                     "Contadero"                  
[687] "Cuaspud"                     "Cumbal"                     
[689] "Cumbitara"                   "El Charco"                  
[691] "El Rosario"                  "El Tablón de Gomez"         
[693] "Francisco Pizarro"           "Funes"                      
[695] "Guachucal"                   "Guaitarilla"                
[697] "Gualmatán"                   "Iles"                       
[699] "Imués"                       "Ipiales"                    
[701] "La Cruz"                     "La Florida"                 
[703] "La Llanada"                  "La Tola"                    
[705] "Leiva"                       "Linares"                    
[707] "Los Andes"                   "Magüí"                      
[709] "Mallama"                     "Olaya Herrera"              
[711] "Ospina"                      "Policarpa"                  
[713] "Potosí"                      "Providencia"                
[715] "Puerres"                     "Pupiales"                   
[717] "Roberto Payán"               "Samaniego"                  
[719] "San Juan de Pasto"           "San Lorenzo"                
[721] "San Pedro de Cartago"        "Sandoná"                    
[723] "Santa Cruz"                  "Sapuyes"                    
[725] "Taminango"                   "Tangua"                     
[727] "Tumaco"                      "Túquerres"                  
[729] "Yacuanquer"                  "Abrego"                     
[731] "Arboledas"                   "Bochalema"                  
[733] "Bucarasica"                  "Cáchira"                    
[735] "Cácota"                      "Chinácota"                  
[737] "Chitagá"                     "Convención"                 
[739] "Cucutilla"                   "Durania"                    
[741] "El Carmen"                   "El Tarra"                   
[743] "El Zulia"                    "Gramalote"                  
[745] "Hacarí"                      "Herrán"                     
[747] "La Esperanza"                "La Playa de Belén"          
[749] "Labateca"                    "Los Patios"                 
[751] "Lourdes"                     "Mutiscua"                   
[753] "Ocaña"                       "Pamplona"                   
[755] "Pamplonita"                  "Ragonvalia"                 
[757] "Salazar de las Palmas"       "San Calixto"                
[759] "San José de Cúcuta"          "Santiago"                   
[761] "Santo Domingo de Silos"      "Sardinata"                  
[763] "Teorama"                     "Tibú"                       
[765] "Villa Caro"                  "Villa del Rosario"          
[767] "Orito"                       "Puerto Asís"                
[769] "Puerto Caicedo"              "Puerto Guzmán"              
[771] "Puerto Leguízamo"            "San Miguel de Mocoa"        
[773] "Sibundoy"                    "Valle del Guamuez"          
[775] "Villagarzón"                 "Calarcá"                    
[777] "Circasia"                    "Filandia"                   
[779] "Génova"                      "La Tebaida"                 
[781] "Montenegro"                  "Pijao"                      
[783] "Quimbaya"                    "Salento"                    
[785] "Apía"                        "Belén de Umbría"            
[787] "Dosquebradas"                "Guática"                    
[789] "La Celia"                    "La Virginia"                
[791] "Marsella"                    "Mistrato"                   
[793] "Pereira"                     "Pueblo Rico"                
[795] "Quinchía"                    "Santa Rosa de Cabal"        
[797] "Santuario"                   "n.a. (1)"                   
[799] "San Andrés"                  "Aguada"                     
[801] "Aratoca"                     "Barichara"                  
[803] "Barrancabermeja"             "Bucaramanga"                
[805] "California"                  "Capitanejo"                 
[807] "Carcasí"                     "Cepitá"                     
[809] "Cerrito"                     "Charalá"                    
[811] "Charta"                      "Chipatá"                    
[813] "Cimitarra"                   "Confines"                   
[815] "Contratación"                "Coromoro"                   
[817] "Curití"                      "El Carmen de Chucurí"       
[819] "El Guacamayo"                "El Playón"                  
[821] "Encino"                      "Enciso"                     
[823] "Florián"                     "Floridablanca"              
[825] "Galán"                       "Gámbita"                    
[827] "Girón"                       "Guaca"                      
[829] "Guapotá"                     "Guavatá"                    
[831] "Güepsa"                      "Hato"                       
[833] "Jesús María"                 "Jordán"                     
[835] "La Belleza"                  "Landázuri"                  
[837] "Lebrija"                     "Los Santos"                 
[839] "Macaravita"                  "Málaga"                     
[841] "Matanza"                     "Mogotes"                    
[843] "Molagavita"                  "Ocamonte"                   
[845] "Oiba"                        "Onzaga"                     
[847] "Palmar"                      "Palmas del Socorro"         
[849] "Páramo"                      "Piedecuesta"                
[851] "Pinchote"                    "Puente Nacional"            
[853] "Puerto Parra"                "Puerto Wilches"             
[855] "Sabana de Torres"            "San Benito"                 
[857] "San Gil"                     "San Joaquín"                
[859] "San José de Miranda"         "San Miguel"                 
[861] "San Vicente de Chucurí"      "Santa Helena del Opón"      
[863] "Simacota"                    "Socorro"                    
[865] "Suaita"                      "Sucre"                      
[867] "Suratá"                      "Tona"                       
[869] "Valle de San José"           "Vélez"                      
[871] "Vetas"                       "Zapatoca"                   
[873] "Caimito"                     "Chalán"                     
[875] "Colosó"                      "Corozal"                    
[877] "Galeras"                     "Guarandá"                   
[879] "Los Palmitos"                "Majagual"                   
[881] "Morroa"                      "Ovejas"                     
[883] "Sampués"                     "San Antonio de Palmito"     
[885] "San Benito Abad"             "San Juan de Betulia"        
[887] "San Marcos"                  "San Onofre"                 
[889] "San Pedro"                   "Sincé"                      
[891] "Sincelejo"                   "Tolú"                       
[893] "Toluviejo"                   "Alpujarra"                  
[895] "Alvarado"                    "Ambalema"                   
[897] "Anzoátegui"                  "Armero"                     
[899] "Ataco"                       "Cajamarca"                  
[901] "Carmen de Apicalá"           "Casabianca"                 
[903] "Chaparral"                   "Coello"                     
[905] "Coyaima"                     "Cunday"                     
[907] "Dolores"                     "Espinal"                    
[909] "Falán"                       "Flandes"                    
[911] "Fresno"                      "Guamo"                      
[913] "Herveo"                      "Honda"                      
[915] "Ibagué"                      "Icononzo"                   
[917] "Lérida"                      "Líbano"                     
[919] "Melgar"                      "Murillo"                    
[921] "Natagaima"                   "Ortega"                     
[923] "Piedras"                     "Planadas"                   
[925] "Prado"                       "Purificación"               
[927] "Rioblanco"                   "Roncesvalles"               
[929] "Rovira"                      "Saldaña"                    
[931] "San Antonio"                 "San Luís"                   
[933] "San Sebastian de Mariquita"  "Santa Isabel"               
[935] "Valle de San Juan"           "Venadillo"                  
[937] "Villahermosa"                "Villarrica"                 
[939] "Alcalá"                      "Andalucía"                  
[941] "Ansermanuevo"                "Buenaventura"               
[943] "Bugalagrande"                "Caicedonia"                 
[945] "Calima"                      "Cartago"                    
[947] "Dagua"                       "El Águila"                  
[949] "El Cairo"                    "El Cerrito"                 
[951] "El Dovio"                    "Florida"                    
[953] "Ginebra"                     "Guacarí"                    
[955] "Guadalajara de Buga"         "Jamundí"                    
[957] "La Cumbre"                   "Obando"                     
[959] "Palmira"                     "Pradera"                    
[961] "Riofrío"                     "Roldanillo"                 
[963] "Santiago de Cali"            "Sevilla"                    
[965] "Toro"                        "Trujillo"                   
[967] "Tuluá"                       "Ulloa"                      
[969] "Versalles"                   "Vijes"                      
[971] "Yotoco"                      "Yumbo"                      
[973] "Zarzal"                      "Carurú"                     
[975] "Mitú"                        "Pacoa"                      
[977] "Papunahua"                   "Taraira"                    
[979] "Yavaraté"                    "Cumaribo"                   
[981] "La Primavera"                "Puerto Carreño"             
[983] "San Jose de Ocune"           "Santa Rita"                 
[985] "Santa Rosalía"

Continuando con el departamento de Bolívar:

Recortar una área (departamento de Bolívar)

Se va a encerrar con una caja el departamento, para que se muestran sus límites.

(sbox <- gadm_getBbox(Bolívar))
      xmin       ymin       xmax       ymax 
-75.797638   6.979202 -73.768997  10.801529

Estructura de la caja que encierra al departamento de Bolívar

str(sbox)
 'bbox' Named num [1:4] -75.8 6.98 -73.77 10.8
 - attr(*, "names")= chr [1:4] "xmin" "ymin" "xmax" "ymax"
 - attr(*, "crs")=List of 2
  ..$ epsg       : int 4326
  ..$ proj4string: chr "+proj=longlat +datum=WGS84 +no_defs"
  ..- attr(*, "class")= chr "crs"

Ahora se va a seguir estudiando el departamento Bolívar recortándolo en unos lítes específicos (más grandes a los de la caja)

(STUDY_AREA <- gadm_crop(DEPTOS, xmin=-75.8, ymin=6.98, xmax=-73.77, ymax=10.8))
although coordinates are longitude/latitude, st_intersection assumes that they are planar
attribute variables are assumed to be spatially constant throughout all geometries
$basename
[1] "./"

$sf
Simple feature collection with 8 features and 5 fields
geometry type:  GEOMETRY
dimension:      XY
bbox:           xmin: -75.8 ymin: 6.98 xmax: -73.77 ymax: 10.8
epsg (SRID):    4326
proj4string:    +proj=longlat +datum=WGS84 +no_defs
   ISO   NAME_0    NAME_1       TYPE_1  ENGTYPE_1
12 COL Colombia Antioquia Departamento Department
27 COL Colombia Atlántico Departamento Department
28 COL Colombia   Bolívar Departamento Department
3  COL Colombia     Cesar Departamento Department
5  COL Colombia   Córdoba Departamento Department
11 COL Colombia Magdalena Departamento Department
20 COL Colombia Santander Departamento Department
21 COL Colombia     Sucre Departamento Department
                         geometry
12 MULTIPOLYGON (((-75.8 7.442...
27 POLYGON ((-74.8816 10.341, ...
28 MULTIPOLYGON (((-75.79681 1...
3  MULTIPOLYGON (((-73.77 7.72...
5  MULTIPOLYGON (((-75.5851 7....
11 MULTIPOLYGON (((-74.42792 1...
20 POLYGON ((-73.90266 6.98, -...
21 MULTIPOLYGON (((-75.78902 9...

$level
[1] 1

$hasBGND
[1] FALSE

attr(,"class")
[1] "gadm_sf"

Departamentos vecinos a Bolívar

gadm_plot(STUDY_AREA)

Obtención de un simple future

DEPTOS$sf
Simple feature collection with 32 features and 5 fields
geometry type:  MULTIPOLYGON
dimension:      XY
bbox:           xmin: -81.84153 ymin: -4.228429 xmax: -66.87033 ymax: 15.91247
epsg (SRID):    4326
proj4string:    +proj=longlat +datum=WGS84 +no_defs
First 10 features:
   ISO   NAME_0    NAME_1       TYPE_1   ENGTYPE_1
1  COL Colombia  Amazonas    Comisaría Commissiary
12 COL Colombia Antioquia Departamento  Department
23 COL Colombia    Arauca  Intendencia  Intendancy
27 COL Colombia Atlántico Departamento  Department
28 COL Colombia   Bolívar Departamento  Department
29 COL Colombia    Boyacá Departamento  Department
30 COL Colombia    Caldas Departamento  Department
31 COL Colombia   Caquetá  Intendencia  Intendancy
32 COL Colombia  Casanare  Intendencia  Intendancy
2  COL Colombia     Cauca Departamento  Department
                         geometry
1  MULTIPOLYGON (((-69.43138 -...
12 MULTIPOLYGON (((-76.99986 8...
23 MULTIPOLYGON (((-69.92316 6...
27 MULTIPOLYGON (((-74.8816 10...
28 MULTIPOLYGON (((-75.79681 1...
29 MULTIPOLYGON (((-74.2158 5....
30 MULTIPOLYGON (((-75.3569 4....
31 MULTIPOLYGON (((-73.88365 -...
32 MULTIPOLYGON (((-72.6363 4....
2  MULTIPOLYGON (((-77.97681 2...

Como ya se instaló la librería mapview, se va a llamar la librería

Llamado de librería

install.packages("mapview")
WARNING: Rtools is required to build R packages but is not currently installed. Please download and install the appropriate version of Rtools before proceeding:

https://cran.rstudio.com/bin/windows/Rtools/
Installing package into 㤼㸱C:/Users/sarad/Documents/R/win-library/3.6㤼㸲
(as 㤼㸱lib㤼㸲 is unspecified)
trying URL 'https://cran.rstudio.com/bin/windows/contrib/3.6/mapview_2.7.0.zip'
Content type 'application/zip' length 2947903 bytes (2.8 MB)
downloaded 2.8 MB
package ‘mapview’ successfully unpacked and MD5 sums checked

The downloaded binary packages are in
    C:\Users\sarad\AppData\Local\Temp\RtmpKmPYYD\downloaded_packages

Este código es para suprimir mensajes de Warning al momemto de llamar la librería mapview y posteriormente se va a realizar un mapa

suppressPackageStartupMessages(library(mapview))
DEPTOS$sf %>% mapview(zcol = "NAME_1", legend = TRUE, col.regions = sf.colors)

Por último se va a plotear los municipios del departamento Bolívar

muncB <- gadm_subset(MUNICIPIOS, 1, "Bolívar", usevar = NULL)
gadm_plot(muncB)

LS0tDQp0aXRsZTogIk1pIHByaW1lciBjdWFkZXJubzogQ29sb21iaWEgeSBlbCBkZXBhcnRhbWVudG8gZGUgQm9sw612YXIiDQphdXRob3I6IFNhcmEgRGFuaWVsYSBWYW5lZ2FzIEdhcnrDs24NCmRhdGU6IDkgZGUgb2N0dWJyZSBkZSAyMDE5DQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KRWwgc2lndWllbnRlIHByb3llY3RvIHRpZW5lIGNvbW8gb2JqZXRpdm8gcmVhbGl6YXIgdW4gbWFwYSBkZSBDb2xvbWJpYSBpZGVudGlmaWNhbmRvIGxhcyBjb29yZGVuYWRhcyBkZSBzdXMgcHVudG9zIGV4dHJlbW9zLCBzdXMgMzIgZGVwYXJ0YW1lbnRvcyB5IHN1cyBtdW5pY2lwaW9zLiBTaW4gZW1iYXJnbyBlc3RlIHByb3llY3RvIHZhIGEgZXN0YXIgZW5mb2NhZG8gZW4gZWwgZGVwYXJ0YW1lbnRvIGRlIEJvbMOtdmFyLCBjb25vY2llbmRvIGFzw60gc3VzIGNvb3JkZW5hZGFzLCBkZXBhcnRhbWVudG9zIHZlY2lub3MgeSBzdXMgbXVuaWNpcGlvcy4NClBvciBsbyB0YW50byBhbnRlcyBkZSBlbXBlemFyIGNvbiBlbCBtYXBhIGRlIENvbG9tYmlhIHNlIHZhbiBhIHRlbmVyIHVub3MgY29ub2NpbWllbnRvcyBwcmV2aW9zIHNlZ8O6biB1biBlamVtcGxvIGVuIFJzdHVkaW8uIA0KDQpFamVtcGxvIGRlIFJTdHVkaW86DQpgYGB7cn0NCnBsb3QoY2FycykNCmBgYA0KDQpBbnRlcyBkZSBjb21lbnphciBjb24gbGEgcmVhbGl6YWNpw7NuIGRlIG1hcGFzLCBlcyBuZWNlc2FyaW8gaW5zdGFsYXIgcHJldmlhbWVudGUgY2llcnRhcyBsaWJyZXLDrWFzLCBjb21vIGxvIHNvbiB0aWR5dmVyc2UsIHNmLCBHQURNVG9vbHMgeSBtYXB2aWV3Lg0KDQojIyMgTGxhbWFkbyBkZSBsaWJyZXLDrWFzDQpgYGB7cn0NCmxpYnJhcnkodGlkeXZlcnNlKQ0KbGlicmFyeShzZikNCmxpYnJhcnkoR0FETVRvb2xzKQ0KbGlicmFyeShtYXB2aWV3KQ0KYGBgDQpVbiBlamVtcGxvIGRlIHVuIG1hcGEgZGUgQ2Fyb2xpbmEgZGVsIE5vcnRlLCBkb25kZSBzZSBtdWVzdHJhbiBzdXMgMTAwIGNvbmRhZG9zIHkgZWwgbsO6bWVybyBkZSBuYWNpbWllbnRvcyBlbiBjYWRhIHVubyBlbiBlbCBhw7FvIDE5NzQuDQpgYGB7cn0NCnN5c3RlbS5maWxlKCJncGtnL25jLmdwa2ciLCBwYWNrYWdlID0gInNmIikgJT4lDQogIHJlYWRfc2YoKSAlPiUNCiAgc3RfdHJhbnNmb3JtKDMyMTE5KSAlPiUNCiAgc2VsZWN0KEJJUjc0KSAlPiUNCiAgcGxvdChncmF0aWN1bGUgPSBUUlVFLCBheGVzID0gVFJVRSkNCmBgYA0KQSBjb250aW51YWNpw7NuIHVuYSB0YWJsYSBkb25kZSBzZSBoYWNlIHVuYSBpbnRlcnByZXRhY2nDs24gZGVsIG1hcGEgYW50ZXJpb3IsIGxvcyBkYXRvcyBxdWUgZXN0w6FuIGFow60uDQpgYGB7cn0NCihyZWFkX3NmKHN5c3RlbS5maWxlKCJncGtnL25jLmdwa2ciLCBwYWNrYWdlID0gInNmIikpKQ0KYGBgDQpBaG9yYSBzaSwgZW50cmFuZG8gZW4gbWF0ZXJpYSBzZSB2YW4gYSBvYnRlbmVyIGxvcyBkYXRvcyBhZG1pbmlzdHJhdGl2b3MgZGVsIHBhw61zIENvbG9tYmlhLCBkb25kZSBzZSB2ZW4gbGFzIGNvb3JkZW5hZGFzIGRlIGxvcyBlc3RyZW1vcyBkZWwgcGHDrXMuIA0KDQojIyMgQ29tbyB5YSBzZSBpbnN0YWzDsyBsYSBsaWJyZXLDrWEgR0FETVRvb2xzLCBzZSB2YSBhIGNhcmdhciBsYSBsaWJyZcOtYS4NCmBgYHtyfQ0KbGlicmFyeShHQURNVG9vbHMpDQpDT0wgPC0gZ2FkbV9zZl9sb2FkQ291bnRyaWVzKGMoIkNPTCIpLCBsZXZlbD0wLCBiYXNlZmlsZT0iLi8iKQ0KQ09MDQpgYGANCkNvbiBsb3MgZGF0b3Mgb2J0ZW5pZG9zOg0KDQojIyMgQWhvcmEgc2UgdmEgYSBwbG90ZWFyIGEgQ29sb21iaWEgYSBuaXZlbCAwDQpgYGB7cn0NCmdhZG1fcGxvdChDT0wpDQpgYGANCg0KIyMjIFBvc3Rlcmlvcm1lbnRlIHNlIHZhbiBhIGV4dHJhZXIgZGVwYXJ0YW1lbnRvcyAoaS5lLiBsZXZlbCAxKQ0KYGBge3J9DQpERVBUT1MgPC0gZ2FkbV9zZl9sb2FkQ291bnRyaWVzKGMoIkNPTCIpLCBsZXZlbCA9IDEsIGJhc2VmaWxlID0gIi4vIikNCmdhZG1fcGxvdChERVBUT1MpDQpgYGANCiMjIyBZIHBvciDDumx0aW1vIHNlIHZhbiBhIHBsb3RlYXIgc3VzIG11bmljaXBpb3MgKG5pdmVsIDIpDQpgYGB7cn0NCk1VTklDSVBJT1MgPC0gZ2FkbV9zZl9sb2FkQ291bnRyaWVzKGMoIkNPTCIpLCBsZXZlbCA9IDIsIGJhc2VmaWxlID0gIi4vIikNCmdhZG1fcGxvdChNVU5JQ0lQSU9TKQ0KYGBgDQpDb21vIHNlIGNvbWVudMOzIGFudGVyaW9ybWVudGUsIGFob3JhIHNlIHZhIGEgaGFjZXIgw6luZmFzaXMgZW4gZWwgZGVwYXJ0YW1lbnRvIGRlIEJvbMOtdmFyLg0KDQojIyMgQWhvcmEgc2UgdmEgYSBwbG90ZWFyIGFsIGRlcGFydGFtZW50byBCb2zDrXZhcg0KYGBge3J9DQpCb2zDrXZhciA8LSBnYWRtX3N1YnNldChERVBUT1MsIGxldmVsPTEsIHJlZ2lvbnM9IkJvbMOtdmFyIikNCmdhZG1fcGxvdChCb2zDrXZhcikgJT4lIGdhZG1fc2hvd05vcnRoKCJ0bCIpICU+JSBnYWRtX3Nob3dTY2FsZSgiYmwiKQ0KYGBgDQoNCkFudGVzIGRlIGNvbnRpbnVhciBjb24gZWwgZGVwYXJ0YW1lbnRvLCBzZSB2YSBhIG9idGVuZXIgdW5hIGxpc3RhIGRlIGxvcyBkZXBhcnRhbWVudG9zIHkgbXVuaWNpcGlvcyBkZSBDb2xvbWJpYS4NCg0KIyMjIExpc3RhIGRlIGxvcyBkZXBhcnRhbWVudG9zDQpgYGB7cn0NCmxpc3ROYW1lcyhERVBUT1MsIDEpDQpgYGANCg0KIyMjIExpc3RhIGRlIGxvcyBtdW5pY2lwaW9zIGRlIENvbG9tYmlhDQpgYGB7cn0NCmxpc3ROYW1lcyhNVU5JQ0lQSU9TLCAyKQ0KYGBgDQpDb250aW51YW5kbyBjb24gZWwgZGVwYXJ0YW1lbnRvIGRlIEJvbMOtdmFyOg0KDQojIyMgUmVjb3J0YXIgdW5hIMOhcmVhIChkZXBhcnRhbWVudG8gZGUgQm9sw612YXIpDQpTZSB2YSBhIGVuY2VycmFyIGNvbiB1bmEgY2FqYSBlbCBkZXBhcnRhbWVudG8sIHBhcmEgcXVlIHNlIG11ZXN0cmFuIHN1cyBsw61taXRlcy4NCmBgYHtyfQ0KKHNib3ggPC0gZ2FkbV9nZXRCYm94KEJvbMOtdmFyKSkNCmBgYA0KIyMjIEVzdHJ1Y3R1cmEgZGUgbGEgY2FqYSBxdWUgZW5jaWVycmEgYWwgZGVwYXJ0YW1lbnRvIGRlIEJvbMOtdmFyDQpgYGB7cn0NCnN0cihzYm94KQ0KYGBgDQoNCiMjIyBBaG9yYSBzZSB2YSBhIHNlZ3VpciBlc3R1ZGlhbmRvIGVsIGRlcGFydGFtZW50byBCb2zDrXZhciByZWNvcnTDoW5kb2xvIGVuIHVub3MgbMOtdGVzIGVzcGVjw61maWNvcyAobcOhcyBncmFuZGVzIGEgbG9zIGRlIGxhIGNhamEpDQpgYGB7cn0NCihTVFVEWV9BUkVBIDwtIGdhZG1fY3JvcChERVBUT1MsIHhtaW49LTc1LjgsIHltaW49Ni45OCwgeG1heD0tNzMuNzcsIHltYXg9MTAuOCkpDQogICAgICAgICAgICAgICAgICAgICAgICANCmBgYA0KIyMjIERlcGFydGFtZW50b3MgdmVjaW5vcyBhIEJvbMOtdmFyDQpgYGB7cn0NCmdhZG1fcGxvdChTVFVEWV9BUkVBKQ0KYGBgDQojIyMgT2J0ZW5jacOzbiBkZSB1biBzaW1wbGUgZnV0dXJlIA0KYGBge3J9DQpERVBUT1Mkc2YNCmBgYA0KQ29tbyB5YSBzZSBpbnN0YWzDsyBsYSBsaWJyZXLDrWEgbWFwdmlldywgc2UgdmEgYSBsbGFtYXIgbGEgbGlicmVyw61hDQoNCiMjIyBMbGFtYWRvIGRlIGxpYnJlcsOtYSANCmBgYHtyfQ0KaW5zdGFsbC5wYWNrYWdlcygibWFwdmlldyIpDQpgYGANCg0KIyMjIEVzdGUgY8OzZGlnbyBlcyBwYXJhIHN1cHJpbWlyIG1lbnNhamVzIGRlIFdhcm5pbmcgYWwgbW9tZW10byBkZSBsbGFtYXIgbGEgbGlicmVyw61hIG1hcHZpZXcgeSBwb3N0ZXJpb3JtZW50ZSBzZSB2YSBhIHJlYWxpemFyIHVuIG1hcGENCmBgYHtyfQ0Kc3VwcHJlc3NQYWNrYWdlU3RhcnR1cE1lc3NhZ2VzKGxpYnJhcnkobWFwdmlldykpDQpERVBUT1Mkc2YgJT4lIG1hcHZpZXcoemNvbCA9ICJOQU1FXzEiLCBsZWdlbmQgPSBUUlVFLCBjb2wucmVnaW9ucyA9IHNmLmNvbG9ycykNCmBgYA0KDQojIyMgUG9yIMO6bHRpbW8gc2UgdmEgYSBwbG90ZWFyIGxvcyBtdW5pY2lwaW9zIGRlbCBkZXBhcnRhbWVudG8gQm9sw612YXINCmBgYHtyfQ0KbXVuY0IgPC0gZ2FkbV9zdWJzZXQoTVVOSUNJUElPUywgMSwgIkJvbMOtdmFyIiwgdXNldmFyID0gTlVMTCkNCmdhZG1fcGxvdChtdW5jQikNCmBgYA==