#install.packages("tidyverse")
library(tidyverse)## Warning: package 'tidyverse' was built under R version 4.2.1## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──## ✔ ggplot2 3.3.6 ✔ purrr 0.3.4
## ✔ tibble 3.1.8 ✔ dplyr 1.0.9
## ✔ tidyr 1.2.0 ✔ stringr 1.4.0
## ✔ readr 2.1.2 ✔ forcats 0.5.1## Warning: package 'ggplot2' was built under R version 4.2.1## Warning: package 'tibble' was built under R version 4.2.1## Warning: package 'tidyr' was built under R version 4.2.1## Warning: package 'readr' was built under R version 4.2.1## Warning: package 'purrr' was built under R version 4.2.1## Warning: package 'dplyr' was built under R version 4.2.1## Warning: package 'forcats' was built under R version 4.2.1## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()#install.packages("sf")
library(sf)## Warning: package 'sf' was built under R version 4.2.1## Linking to GEOS 3.9.1, GDAL 3.4.3, PROJ 7.2.1; sf_use_s2() is TRUE#install.packages("leaflet")
library(leaflet)## Warning: package 'leaflet' was built under R version 4.2.1#install.packages("tmaptools")
library(tmaptools)## Warning: package 'tmaptools' was built under R version 4.2.1#install.packages("osrm")
library(osrm)## Warning: package 'osrm' was built under R version 4.2.1## Data: (c) OpenStreetMap contributors, ODbL 1.0 - http://www.openstreetmap.org/copyright## Routing: OSRM - http://project-osrm.org/## sp support will be dropped in the next major release, please use sf objects instead.# Para leer excel
# https://rpubs.com/pabloecancino/leer_excel_en_R
# install.packages("readxl")
library(readxl)## Warning: package 'readxl' was built under R version 4.2.1domicilios <- read_excel("data/Domicilios_sin_geo.xlsx",sheet = 1) # Hoja 1
head(domicilios)## # A tibble: 6 × 4
## ORD CALLE NRO CANTIDAD
## <chr> <chr> <chr> <dbl>
## 1 1 BRAVO, MARIO 234 87
## 2 2 URQUIZA, GRAL. 609 2387
## 3 3 BRANDSEN 2570 1074
## 4 4 GARCIA, MARTIN AV. 874 563
## 5 5 24 DE NOVIEMBRE 1536 80
## 6 6 ECHEVERRIA 955 416El campo CANTIDAD se refiere a la cantidad de personas que trabajan en el domicilio
domicilios <- domicilios %>%
mutate(domicilio = paste(gsub("\\," , "", CALLE), # saco comas intermedias
# " ",NRO, ", CABA, Buenos Aires, Argentina"))
" ",NRO, ", CABA, Argentina"))Hacemos adecuaciones para la georeferenciación. Algunas pruebas previas, determinaron que OSM no encuentra las abreviaturas
domicilios <- domicilios %>%
mutate(domicilio = gsub("GRAL." , " GENERAL " , domicilio)) %>%
mutate(domicilio = gsub("CNEL." , " CORONEL " , domicilio)) %>%
mutate(domicilio = gsub("ALTE." , " ALMIRANTE " , domicilio)) %>%
mutate(domicilio = gsub("TTE." , " TENIENTE " , domicilio)) %>%
mutate(domicilio = gsub("MCAL." , " MARISCAL " , domicilio)) %>%
mutate(domicilio = gsub("PROF." , " PROFESOR " , domicilio)) %>%
mutate(domicilio = gsub("PRES." , " PRESIDENTE " , domicilio)) %>%
mutate(domicilio = gsub("BRIG." , " BRIGADIER " , domicilio)) %>%
mutate(domicilio = gsub(" DR." , " DOCTOR " , domicilio)) %>%
mutate(domicilio = gsub(" AV." , " AVENIDA " , domicilio)) %>%
mutate(domicilio = gsub(" " , " ", domicilio)) %>%
mutate(domicilio = gsub(" " , " ", domicilio)) %>%
mutate(domicilio = gsub(" " , " ", domicilio)) Creamos la función geocode_funcion
geocode_funcion <- function(x){
df <- geocode_OSM(x, as.data.frame = TRUE, keep.unfound=TRUE)
}Recibe como parámetro una Columna de un Dataset
invoca la función de OpenStreetMap geocode_OSM con 2 parámetros as.data.frame=TRUE para que el resultado sea un dataframe y no una lista keep.unfound=TRUE para que, si la función no encuentra alguna dirección en OSM, no arroje error y pueda seguir con el siguiente registro
utilizaremos pmap para invocar a la función que creamos geocode_funcion a todos los elementos de un vector de domicilios que llamaremos domicilio
#domicilios_head <- head(domicilios,30)
domicilio <- list(domicilios$domicilio) # generamos vector
domicilio <- pmap(domicilio, geocode_funcion) # invocamos la función ## No results found for "FERNANDEZ DE LA CRUZ F. GENERAL AVENIDA 4548 , CABA, Argentina".## No results found for "DE LA TORRE L. Y DE LOS CORRALES AVENIDA S/N , CABA, Argentina".## No results found for "SOLDADO DE LA FRONTERA AVENIDA 5144 , CABA, Argentina".## No results found for "11 DE SEPTIEMBRE DE 1888 Y LA PAMPA S/N , CABA, Argentina".## No results found for "FERNANDEZ DE LA CRUZ F. GENERAL AVENIDA 2615 , CABA, Argentina".## No results found for "COLECTORA DELLEPIANE NORTE 4800 , CABA, Argentina".## No results found for "FERNANDEZ DE LA CRUZ F. GENERAL AVENIDA 4500 , CABA, Argentina".## No results found for "RODO JOSE E. 4477 , CABA, Argentina".## No results found for "HUMBERTO 1º 250 , CABA, Argentina".## No results found for "VALLE ARISTOBULO DEL 471 , CABA, Argentina".## No results found for "HUMBERTO 1º 3187 , CABA, Argentina".## No results found for "ARAOZ DE LAMADRID GREGORIO GENERAL 1750 , CABA, Argentina".## No results found for "CARLOS H. PERE TENIENTE 750 , CABA, Argentina".## No results found for "ALVAREZ THOMAS AVENIDA 3391 , CABA, Argentina".## No results found for "LUNA Y ORMA S/N , CABA, Argentina".## No results found for "AV. GENERAL PAZ Y 2 DE ABRIL DE 1982 S/N , CABA, Argentina".## No results found for "HERNANDEZ JOSE Y TORRES CAMILO S/N , CABA, Argentina".## No results found for "SOLDADO DE LA FRONTERA AVENIDA 5210 , CABA, Argentina".## No results found for "FIGUEROA ALCORTA PRESIDENTE AVENIDA 2170 , CABA, Argentina".## No results found for "QUINQUELA MARTIN BENITO 1649 , CABA, Argentina".## No results found for "HUMBERTO 1º 2260 , CABA, Argentina".## No results found for "DIRECTORIO AVENIDA 4210 , CABA, Argentina".## No results found for "FALCON RAMON L. CORONEL 4126 , CABA, Argentina".## No results found for "SAENZ PEÑA ROQUE PRESIDENTE AVENIDA 788 , CABA, Argentina".## No results found for "RIO CUARTO Y MONTESQUIEU S/N , CABA, Argentina".## No results found for "HUMBERTO 1º 3171 , CABA, Argentina".## No results found for "RODO JOSE E. 4431 , CABA, Argentina".## No results found for "QUINTANA MANUEL PRESIDENTE 35 , CABA, Argentina".## No results found for "RIVERA PEDRO I. DOCTOR 4221 , CABA, Argentina".## No results found for "DON PEDRO DE MENDOZA AVENIDA 1835 , CABA, Argentina".## No results found for "IRIARTE GENERAL AVENIDA Y MONTESQUIEU S/N , CABA, Argentina".## No results found for "DEL LIBERTADOR AVENIDA 1850 , CABA, Argentina".## No results found for "DIAZ ANA y CAFAYATE S/N , CABA, Argentina".## No results found for "SARMIENTO Y CARLOS PELLEGRINI S/N , CABA, Argentina".## No results found for "DE LA CRUZ FERNANDEZ AVENIDA Y ESCALADA AVENIDA NA , CABA, Argentina".## No results found for "PORCEL DE PERALTA MANUEL 1437 , CABA, Argentina".## No results found for "DE LOS ITALIANOS AVENIDA 851 , CABA, Argentina".## No results found for "CHILAVERT MARTINIANO CORONEL 5460 , CABA, Argentina".## No results found for "JUSTO JUAN B. AVENIDA 4151 , CABA, Argentina".## No results found for "TRIUNVIRATO AVENIDA 3626 , CABA, Argentina".## No results found for "DANTAS JULIO S. 3260 , CABA, Argentina".## No results found for "RIESTRA AVENIDA 3300 , CABA, Argentina".## No results found for "PIEDRA BUENA AVENIDA 4863 , CABA, Argentina".## No results found for "ANCHORENA TOMAS MANUEL DE DOCTOR 441 , CABA, Argentina".## No results found for "DON PEDRO DE MENDOZA AVENIDA 1795 , CABA, Argentina".## No results found for "DE MAYO AVENIDA 591 , CABA, Argentina".## No results found for "PAZ MARCOS 1732 , CABA, Argentina".## No results found for "PERON EVA AVENIDA 6600 , CABA, Argentina".## No results found for "ARAOZ DE LAMADRID GREGORIO GENERAL 499 , CABA, Argentina".## No results found for "FERNANDEZ DE LA CRUZ F. GENERAL AVENIDA 4214 , CABA, Argentina".## No results found for "RAMIREZ DE VELASCO JUAN 662 , CABA, Argentina".## No results found for "DON PEDRO DE MENDOZA AVENIDA 1801 , CABA, Argentina".## No results found for "ARANGUREN JUAN F. DOCTOR 3837 , CABA, Argentina".## No results found for "PIEDRA BUENA AVENIDA 3200 , CABA, Argentina".## No results found for "DEL LIBERTADOR AVENIDA 2373 , CABA, Argentina".## No results found for "ENTRE RIOS AVENIDA 757 , CABA, Argentina".## No results found for "PIEDRA BUENA AVENIDA 3280 , CABA, Argentina".## No results found for "MANSILLA LUCIO NORBERTO GENERAL 3643 , CABA, Argentina".## No results found for "CRAMER AVENIDA 2136 , CABA, Argentina".## No results found for "PIEDRA BUENA AVENIDA 3151 , CABA, Argentina".## No results found for "NUÑEZ ROBERTO OBRERO 4355 , CABA, Argentina".## No results found for "ACHA MARIANO GENERAL 4452 , CABA, Argentina".## No results found for "TRIUNVIRATO AVENIDA 4247 , CABA, Argentina".## No results found for "OLASCOAGA MANUEL JOSE CORONEL 5001 , CABA, Argentina".## No results found for "CALDERON DE LA BARCA PEDRO 3073 , CABA, Argentina".## No results found for "HUMBERTO 1º 2861 , CABA, Argentina".## No results found for "FERNANDEZ MORENO BALDOMERO 1783 , CABA, Argentina".## No results found for "DEL LIBERTADOR AVENIDA 4777 , CABA, Argentina".## No results found for "LETONIA y ANTARTIDA ARGENTINA AVENIDA S/N , CABA, Argentina".## No results found for "FALCON RAMON L. CORONEL 4801 , CABA, Argentina".## No results found for "DE LA TORRE LISANDRO 550 , CABA, Argentina".## No results found for "SALMUN FEIJOO JOSE AARON 1073 , CABA, Argentina".## No results found for "REGIMIENTO DE PATRICIOS AVENIDA 65 , CABA, Argentina".## No results found for "COMBATIENTES DE MALVINAS AVENIDA 3002 , CABA, Argentina".## No results found for "QUINQUELA MARTIN BENITO 1081 , CABA, Argentina".## No results found for "DEL LIBERTADOR AVENIDA 238 , CABA, Argentina".## No results found for "FIGUEROA D. APOLINARIO CORONEL 651 , CABA, Argentina".## No results found for "ACUÑA DE FIGUEROA FRANCISCO 850 , CABA, Argentina".## No results found for "CABEZON JOSE LEON 3446 , CABA, Argentina".## No results found for "TRIUNVIRATO AVENIDA 5101 , CABA, Argentina".## No results found for "HUERGO ING. AVENIDA 953 , CABA, Argentina".## No results found for "ARANGUREN JUAN F. DOCTOR 2605 , CABA, Argentina".## No results found for "VEDIA AGUSTIN DE Y JANER ANA MARIA S/N , CABA, Argentina".## No results found for "FREIRE RAMON CAP. GENERAL 4080 , CABA, Argentina".## No results found for "MARTINEZ CASTRO Y AVENIDA RIESTRA S/N , CABA, Argentina".## No results found for "NEWBERY JORGE AVENIDA 4223 , CABA, Argentina".## No results found for "LOS ROBLES Y PJE. DEL PALO SANTO S/N , CABA, Argentina".## No results found for "FERNANDEZ DE LA CRUZ F. GENERAL AVENIDA 4402 , CABA, Argentina".## No results found for "FERNANDEZ DE LA CRUZ F. GENERAL AVENIDA 4418 , CABA, Argentina".## No results found for "FALCON RAMON L. CORONEL 6702 , CABA, Argentina".## No results found for "FREIRE RAMON CAP. GENERAL 929 , CABA, Argentina".## No results found for "URIBURU JOSE E. PRESIDENTE 876 , CABA, Argentina".## No results found for "BONIFACIO JOSE 3650 , CABA, Argentina".## No results found for "PERON JUAN DOMINGO TENIENTE GENERAL 3326 , CABA, Argentina".## No results found for "BERRO ADOLFO AVENIDA 3880 , CABA, Argentina".## No results found for "LIBRES DEL SUR Y BRIGADIER QUIROGA NA , CABA, Argentina".## No results found for "DIAZ CESAR GENERAL 4219 , CABA, Argentina".## No results found for "CERVIÑO AVENIDA 4720 , CABA, Argentina".## No results found for "LAFAYE TENIENTE 1879 , CABA, Argentina".## No results found for "DEL LIBERTADOR AVENIDA 4903 , CABA, Argentina".## No results found for "PJE. L 2300 , CABA, Argentina".## No results found for "HUERGO ING. AVENIDA 949 , CABA, Argentina".## No results found for "VIALE LUIS 1046 , CABA, Argentina".## No results found for "OROÑO NICASIO 2131 , CABA, Argentina".## No results found for "RIVERA PEDRO I. DOCTOR 4151 , CABA, Argentina".## No results found for "SAN JUAN BAUTISTA DE LA SALLE AVENIDA 2450 , CABA, Argentina".## No results found for "DIRECTORIO AVENIDA Y LACARRA AVENIDA S/N , CABA, Argentina".## No results found for "SAENZ PEÑA ROQUE PRESIDENTE AVENIDA 832 , CABA, Argentina".## No results found for "MORENO PERITO AVENIDA Y EREZCANO S/N , CABA, Argentina".## No results found for "GAINZA MARTIN DE GENERAL 1050 , CABA, Argentina".## No results found for "AV. INTENDENTE CANTILO Y LA PAMPA S/N , CABA, Argentina".## No results found for "SUMACA DE LA SANTISIMA TRINIDAD 5088 , CABA, Argentina".## No results found for "ARANGUREN JUAN F. DOCTOR 2400 , CABA, Argentina".## No results found for "DE LA TORRE LISANDRO 1171 , CABA, Argentina".## No results found for "DEL LIBERTADOR AVENIDA 8635 , CABA, Argentina".## No results found for "QUINQUELA MARTIN BENITO 1151 , CABA, Argentina".## No results found for "HUMBERTO 1º 1573 , CABA, Argentina".## No results found for "ENTRE RIOS AVENIDA 1492 , CABA, Argentina".## No results found for "ACHA MARIANO GENERAL 2250 , CABA, Argentina".## No results found for "SAENZ PEÑA LUIS PRESIDENTE 1215 , CABA, Argentina".## No results found for "MONTES DE OCA MANUEL AVENIDA 16 , CABA, Argentina".## No results found for "PERE TENIENTE CARLOS H Y CALLE 10 NA , CABA, Argentina".## No results found for "ESPAÑA AVENIDA 1707 , CABA, Argentina".## No results found for "SAN JUAN AVENIDA 21 , CABA, Argentina".## No results found for "DELLEPIANE LUIS TENIENTE GENERAL 4801 , CABA, Argentina".## No results found for "DON PEDRO DE MENDOZA AVENIDA 1843 , CABA, Argentina".## No results found for "PIEDRA BUENA AVENIDA 3300 , CABA, Argentina".## No results found for "CALDERON DE LA BARCA PEDRO 1550 , CABA, Argentina".## No results found for "ANCHORENA TOMAS MANUEL DE DOCTOR 855 , CABA, Argentina".## No results found for "LUCA ESTEBAN DE 2151 , CABA, Argentina".## No results found for "QUINTANA MANUEL PRESIDENTE 31 , CABA, Argentina".## No results found for "HUMBERTO 1º 470 , CABA, Argentina".## No results found for "CARRANZA ANGEL JUSTINIANO 2045 , CABA, Argentina".## No results found for "CARRIL SALVADOR MARIA DEL AVENIDA 3650 , CABA, Argentina".## No results found for "CRUZ OSVALDO AVENIDA 2055 , CABA, Argentina".## No results found for "SOLDADO DE LA FRONTERA AVENIDA 5140 , CABA, Argentina".## No results found for "FIGUEROA D. APOLINARIO CORONEL 1077 , CABA, Argentina".## No results found for "MORAN PEDRO 2899 , CABA, Argentina".## No results found for "MAGARIÑOS CERVANTES A. 1556 , CABA, Argentina".## No results found for "COMBATIENTES DE MALVINAS AVENIDA 3234 , CABA, Argentina".## No results found for "CRUZ OSVALDO AVENIDA Y ZAVALETA S/N , CABA, Argentina".## No results found for "DON PEDRO DE MENDOZA AVENIDA 3865 , CABA, Argentina".## No results found for " CORONEL VENTURA ALEGRE 799 , CABA, Argentina".## No results found for "DIAZ AVENIDA LINO 2356 , CABA, Argentina".## No results found for "COBO AVENIDA Y TORRES CAMILO S/N , CABA, Argentina".## No results found for "ZUBERBUHLER CARLOS EVARISTO 1850 , CABA, Argentina".## No results found for "HUMBERTO 1º 343 , CABA, Argentina".## No results found for "GARMENDIA AVENIDA 4838 , CABA, Argentina".## No results found for "CALVO CARLOS 3307 , CABA, Argentina".## No results found for "BARROS PAZOS JOSE 5250 , CABA, Argentina".## No results found for "PADRE DANIEL DE LA SIERRA PASEO 1700 , CABA, Argentina".## No results found for "OROÑO NICASIO 560 , CABA, Argentina".## No results found for "CALVO CARLOS 3325 , CABA, Argentina".## No results found for "PEREZ GREGORIA 3627 , CABA, Argentina".## No results found for "ACUÑA DE FIGUEROA FRANCISCO 1240 , CABA, Argentina".## No results found for "DE MAYO AVENIDA 575 , CABA, Argentina".## No results found for "URUGUAY AVENIDA 753 , CABA, Argentina".## No results found for "LAFERRERE GREGORIO DE 3624 , CABA, Argentina".## No results found for "FERNANDEZ DE LA CRUZ F. GENERAL AVENIDA 4000 , CABA, Argentina".## No results found for "DE LOS OMBUES Y ANDRES BELLO S/N , CABA, Argentina".## No results found for "FERNANDEZ MORENO BALDOMERO 3652 , CABA, Argentina".## No results found for "DE LA TORRE LISANDRO 2288 , CABA, Argentina".## No results found for "PIEDRA BUENA AVENIDA 3100 , CABA, Argentina".## No results found for "ALMAFUERTE AVENIDA Y LOS PATOS S/N , CABA, Argentina".## No results found for "DON PEDRO DE MENDOZA AVENIDA 1875 , CABA, Argentina".## No results found for "FERNANDEZ DE LA CRUZ F. GENERAL AVENIDA 4209 , CABA, Argentina".## No results found for "MARTINEZ CASTRO Y LAGUNA PASAJE L S/N , CABA, Argentina".## No results found for "ALPACA Y BAJO AUTOPISTA NA , CABA, Argentina".## No results found for "GARCIA TEODORO 3871 , CABA, Argentina".## No results found for "SOLDADO DE LA FRONTERA AVENIDA 5155 , CABA, Argentina".## No results found for "FALCON RAMON L. CORONEL 4151 , CABA, Argentina".## No results found for "SARMIENTO AVENIDA Y ROLDAN BELISARIO S/N , CABA, Argentina".## No results found for "SAENZ PEÑA LUIS PRESIDENTE 463 , CABA, Argentina".## No results found for "ARAOZ DE LAMADRID GREGORIO GENERAL 676 , CABA, Argentina".## No results found for "URIBURU JOSE E. PRESIDENTE 1022 , CABA, Argentina".## No results found for "JUSTO JUAN B. AVENIDA 909 , CABA, Argentina".## No results found for "LA PAMPA Y CANTILO S/N , CABA, Argentina".## No results found for "DON PEDRO DE MENDOZA AVENIDA 3825 , CABA, Argentina".## No results found for "ARANGUREN JUAN F. DOCTOR 2701 , CABA, Argentina".## No results found for "DON PEDRO DE MENDOZA AVENIDA 1777 , CABA, Argentina".## No results found for "ESCALADA DE SAN MARTIN R. 2986 , CABA, Argentina".## No results found for "MISTRAL GABRIELA 3819 , CABA, Argentina".## No results found for "PILAR Y BRAGADO S/N , CABA, Argentina".## No results found for "BROWN ALMIRANTE AVENIDA Y ESPINOSA S/N , CABA, Argentina".## No results found for "MAGARIÑOS CERVANTES A. 2865 , CABA, Argentina".## No results found for "PAVON AVENIDA 3918 , CABA, Argentina".## No results found for "FERNANDEZ DE LA CRUZ F. GENERAL AVENIDA 4629 , CABA, Argentina".## No results found for "PAZ JOSE C. 3300 , CABA, Argentina".## No results found for "MAGARIÑOS CERVANTES A. 5068 , CABA, Argentina".## No results found for "LARRALDE CRISOLOGO AVENIDA 1050 , CABA, Argentina".## No results found for "DELLEPIANE SUR Y ESCALADA AVENIDA S/N , CABA, Argentina".## No results found for "ACHAVAL RODRIGUEZ T. DOCTOR AVENIDA 1550 , CABA, Argentina".## No results found for "OROÑO NICASIO 1431 , CABA, Argentina".## No results found for "CHUTRO PEDRO PROFESOR DOCTOR 3003 , CABA, Argentina".## No results found for "AV. DOCTOR LUIS ALBERTO DE HERRERA 3100 , CABA, Argentina".## No results found for "COBO AVENIDA Y CURAPALIGUE S/N , CABA, Argentina".## No results found for "PERE TENIENTE CARLOS H. NA , CABA, Argentina".## No results found for "ARENAL CONCEPCION 4206 , CABA, Argentina".## No results found for "MONTES DE OCA MANUEL AVENIDA 455 , CABA, Argentina".## No results found for "SEGUI F. J. ALMIRANTE 2125 , CABA, Argentina".## No results found for "RAMOS MEJIA JOSE MARIA DOCTOR AVENIDA 1315 , CABA, Argentina".summary(domicilio)## Length Class Mode
## [1,] 7 data.frame list
## [2,] 7 data.frame list
## [3,] 7 data.frame list
## [4,] 7 data.frame list
## [5,] 7 data.frame list
## [6,] 7 data.frame list
## [7,] 7 data.frame list
## [8,] 7 data.frame list
## [9,] 7 data.frame list
## [10,] 7 data.frame list
## [11,] 7 data.frame list
## [12,] 7 data.frame list
## [13,] 7 data.frame list
## [14,] 7 data.frame list
## [15,] 7 data.frame list
## [16,] 7 data.frame list
## [17,] 7 data.frame list
## [18,] 7 data.frame list
## [19,] 7 data.frame list
## [20,] 7 data.frame list
## [21,] 7 data.frame list
## [22,] 7 data.frame list
## [23,] 7 data.frame list
## [24,] 7 data.frame list
## [25,] 7 data.frame list
## [26,] 7 data.frame list
## [27,] 7 data.frame list
## [28,] 7 data.frame list
## [29,] 7 data.frame list
## [30,] 7 data.frame list
## [31,] 7 data.frame list
## [32,] 7 data.frame list
## [33,] 7 data.frame list
## [34,] 7 data.frame list
## [35,] 7 data.frame list
## [36,] 7 data.frame list
## [37,] 7 data.frame list
## [38,] 7 data.frame list
## [39,] 7 data.frame list
## [40,] 7 data.frame list
## [41,] 7 data.frame list
## [42,] 7 data.frame list
## [43,] 7 data.frame list
## [44,] 7 data.frame list
## [45,] 7 data.frame list
## [46,] 7 data.frame list
## [47,] 7 data.frame list
## [48,] 7 data.frame list
## [49,] 7 data.frame list
## [50,] 7 data.frame list
## [51,] 7 data.frame list
## [52,] 7 data.frame list
## [53,] 7 data.frame list
## [54,] 7 data.frame list
## [55,] 7 data.frame list
## [56,] 7 data.frame list
## [57,] 7 data.frame list
## [58,] 7 data.frame list
## [59,] 7 data.frame list
## [60,] 7 data.frame list
## [61,] 7 data.frame list
## [62,] 7 data.frame list
## [63,] 7 data.frame list
## [64,] 7 data.frame list
## [65,] 7 data.frame list
## [66,] 7 data.frame list
## [67,] 7 data.frame list
## [68,] 7 data.frame list
## [69,] 7 data.frame list
## [70,] 7 data.frame list
## [71,] 7 data.frame list
## [72,] 7 data.frame list
## [73,] 7 data.frame list
## [74,] 7 data.frame list
## [75,] 7 data.frame list
## [76,] 7 data.frame list
## [77,] 7 data.frame list
## [78,] 7 data.frame list
## [79,] 7 data.frame list
## [80,] 7 data.frame list
## [81,] 7 data.frame list
## [82,] 7 data.frame list
## [83,] 7 data.frame list
## [84,] 7 data.frame list
## [85,] 7 data.frame list
## [86,] 7 data.frame list
## [87,] 7 data.frame list
## [88,] 7 data.frame list
## [89,] 7 data.frame list
## [90,] 7 data.frame list
## [91,] 7 data.frame list
## [92,] 7 data.frame list
## [93,] 7 data.frame list
## [94,] 7 data.frame list
## [95,] 7 data.frame list
## [96,] 7 data.frame list
## [97,] 7 data.frame list
## [98,] 7 data.frame list
## [99,] 7 data.frame list
## [100,] 7 data.frame list
## [101,] 7 data.frame list
## [102,] 7 data.frame list
## [103,] 7 data.frame list
## [104,] 7 data.frame list
## [105,] 7 data.frame list
## [106,] 7 data.frame list
## [107,] 7 data.frame list
## [108,] 7 data.frame list
## [109,] 7 data.frame list
## [110,] 7 data.frame list
## [111,] 7 data.frame list
## [112,] 7 data.frame list
## [113,] 7 data.frame list
## [114,] 7 data.frame list
## [115,] 7 data.frame list
## [116,] 7 data.frame list
## [117,] 7 data.frame list
## [118,] 7 data.frame list
## [119,] 7 data.frame list
## [120,] 7 data.frame list
## [121,] 7 data.frame list
## [122,] 7 data.frame list
## [123,] 7 data.frame list
## [124,] 7 data.frame list
## [125,] 7 data.frame list
## [126,] 7 data.frame list
## [127,] 7 data.frame list
## [128,] 7 data.frame list
## [129,] 7 data.frame list
## [130,] 7 data.frame list
## [131,] 7 data.frame list
## [132,] 7 data.frame list
## [133,] 7 data.frame list
## [134,] 7 data.frame list
## [135,] 7 data.frame list
## [136,] 7 data.frame list
## [137,] 7 data.frame list
## [138,] 7 data.frame list
## [139,] 7 data.frame list
## [140,] 7 data.frame list
## [141,] 7 data.frame list
## [142,] 7 data.frame list
## [143,] 7 data.frame list
## [144,] 7 data.frame list
## [145,] 7 data.frame list
## [146,] 7 data.frame list
## [147,] 7 data.frame list
## [148,] 7 data.frame list
## [149,] 7 data.frame list
## [150,] 7 data.frame list
## [151,] 7 data.frame list
## [152,] 7 data.frame list
## [153,] 7 data.frame list
## [154,] 7 data.frame list
## [155,] 7 data.frame list
## [156,] 7 data.frame list
## [157,] 7 data.frame list
## [158,] 7 data.frame list
## [159,] 7 data.frame list
## [160,] 7 data.frame list
## [161,] 7 data.frame list
## [162,] 7 data.frame list
## [163,] 7 data.frame list
## [164,] 7 data.frame list
## [165,] 7 data.frame list
## [166,] 7 data.frame list
## [167,] 7 data.frame list
## [168,] 7 data.frame list
## [169,] 7 data.frame list
## [170,] 7 data.frame list
## [171,] 7 data.frame list
## [172,] 7 data.frame list
## [173,] 7 data.frame list
## [174,] 7 data.frame list
## [175,] 7 data.frame list
## [176,] 7 data.frame list
## [177,] 7 data.frame list
## [178,] 7 data.frame list
## [179,] 7 data.frame list
## [180,] 7 data.frame list
## [181,] 7 data.frame list
## [182,] 7 data.frame list
## [183,] 7 data.frame list
## [184,] 7 data.frame list
## [185,] 7 data.frame list
## [186,] 7 data.frame list
## [187,] 7 data.frame list
## [188,] 7 data.frame list
## [189,] 7 data.frame list
## [190,] 7 data.frame list
## [191,] 7 data.frame list
## [192,] 7 data.frame list
## [193,] 7 data.frame list
## [194,] 7 data.frame list
## [195,] 7 data.frame list
## [196,] 7 data.frame list
## [197,] 7 data.frame list
## [198,] 7 data.frame list
## [199,] 7 data.frame list
## [200,] 7 data.frame list
## [201,] 7 data.frame list
## [202,] 7 data.frame list
## [203,] 7 data.frame list
## [204,] 7 data.frame list
## [205,] 7 data.frame list
## [206,] 7 data.frame list
## [207,] 7 data.frame list
## [208,] 7 data.frame list
## [209,] 7 data.frame list
## [210,] 7 data.frame list
## [211,] 7 data.frame list
## [212,] 7 data.frame list
## [213,] 7 data.frame list
## [214,] 7 data.frame list
## [215,] 7 data.frame list
## [216,] 7 data.frame list
## [217,] 7 data.frame list
## [218,] 7 data.frame list
## [219,] 7 data.frame list
## [220,] 7 data.frame list
## [221,] 7 data.frame list
## [222,] 7 data.frame list
## [223,] 7 data.frame list
## [224,] 7 data.frame list
## [225,] 7 data.frame list
## [226,] 7 data.frame list
## [227,] 7 data.frame list
## [228,] 7 data.frame list
## [229,] 7 data.frame list
## [230,] 7 data.frame list
## [231,] 7 data.frame list
## [232,] 7 data.frame list
## [233,] 7 data.frame list
## [234,] 7 data.frame list
## [235,] 7 data.frame list
## [236,] 7 data.frame list
## [237,] 7 data.frame list
## [238,] 7 data.frame list
## [239,] 7 data.frame list
## [240,] 7 data.frame list
## [241,] 7 data.frame list
## [242,] 7 data.frame list
## [243,] 7 data.frame list
## [244,] 7 data.frame list
## [245,] 7 data.frame list
## [246,] 7 data.frame list
## [247,] 7 data.frame list
## [248,] 7 data.frame list
## [249,] 7 data.frame list
## [250,] 7 data.frame list
## [251,] 7 data.frame list
## [252,] 7 data.frame list
## [253,] 7 data.frame list
## [254,] 7 data.frame list
## [255,] 7 data.frame list
## [256,] 7 data.frame list
## [257,] 7 data.frame list
## [258,] 7 data.frame list
## [259,] 7 data.frame list
## [260,] 7 data.frame list
## [261,] 7 data.frame list
## [262,] 7 data.frame list
## [263,] 7 data.frame list
## [264,] 7 data.frame list
## [265,] 7 data.frame list
## [266,] 7 data.frame list
## [267,] 7 data.frame list
## [268,] 7 data.frame list
## [269,] 7 data.frame list
## [270,] 7 data.frame list
## [271,] 7 data.frame list
## [272,] 7 data.frame list
## [273,] 7 data.frame list
## [274,] 7 data.frame list
## [275,] 7 data.frame list
## [276,] 7 data.frame list
## [277,] 7 data.frame list
## [278,] 7 data.frame list
## [279,] 7 data.frame list
## [280,] 7 data.frame list
## [281,] 7 data.frame list
## [282,] 7 data.frame list
## [283,] 7 data.frame list
## [284,] 7 data.frame list
## [285,] 7 data.frame list
## [286,] 7 data.frame list
## [287,] 7 data.frame list
## [288,] 7 data.frame list
## [289,] 7 data.frame list
## [290,] 7 data.frame list
## [291,] 7 data.frame list
## [292,] 7 data.frame list
## [293,] 7 data.frame list
## [294,] 7 data.frame list
## [295,] 7 data.frame list
## [296,] 7 data.frame list
## [297,] 7 data.frame list
## [298,] 7 data.frame list
## [299,] 7 data.frame list
## [300,] 7 data.frame list
## [301,] 7 data.frame list
## [302,] 7 data.frame list
## [303,] 7 data.frame list
## [304,] 7 data.frame list
## [305,] 7 data.frame list
## [306,] 7 data.frame list
## [307,] 7 data.frame list
## [308,] 7 data.frame list
## [309,] 7 data.frame list
## [310,] 7 data.frame list
## [311,] 7 data.frame list
## [312,] 7 data.frame list
## [313,] 7 data.frame list
## [314,] 7 data.frame list
## [315,] 7 data.frame list
## [316,] 7 data.frame list
## [317,] 7 data.frame list
## [318,] 7 data.frame list
## [319,] 7 data.frame list
## [320,] 7 data.frame list
## [321,] 7 data.frame list
## [322,] 7 data.frame list
## [323,] 7 data.frame list
## [324,] 7 data.frame list
## [325,] 7 data.frame list
## [326,] 7 data.frame list
## [327,] 7 data.frame list
## [328,] 7 data.frame list
## [329,] 7 data.frame list
## [330,] 7 data.frame list
## [331,] 7 data.frame list
## [332,] 7 data.frame list
## [333,] 7 data.frame list
## [334,] 7 data.frame list
## [335,] 7 data.frame list
## [336,] 7 data.frame list
## [337,] 7 data.frame list
## [338,] 7 data.frame list
## [339,] 7 data.frame list
## [340,] 7 data.frame list
## [341,] 7 data.frame list
## [342,] 7 data.frame list
## [343,] 7 data.frame list
## [344,] 7 data.frame list
## [345,] 7 data.frame list
## [346,] 7 data.frame list
## [347,] 7 data.frame list
## [348,] 7 data.frame list
## [349,] 7 data.frame list
## [350,] 7 data.frame list
## [351,] 7 data.frame list
## [352,] 7 data.frame list
## [353,] 7 data.frame list
## [354,] 7 data.frame list
## [355,] 7 data.frame list
## [356,] 7 data.frame list
## [357,] 7 data.frame list
## [358,] 7 data.frame list
## [359,] 7 data.frame list
## [360,] 7 data.frame list
## [361,] 7 data.frame list
## [362,] 7 data.frame list
## [363,] 7 data.frame list
## [364,] 7 data.frame list
## [365,] 7 data.frame list
## [366,] 7 data.frame list
## [367,] 7 data.frame list
## [368,] 7 data.frame list
## [369,] 7 data.frame list
## [370,] 7 data.frame list
## [371,] 7 data.frame list
## [372,] 7 data.frame list
## [373,] 7 data.frame list
## [374,] 7 data.frame list
## [375,] 7 data.frame list
## [376,] 7 data.frame list
## [377,] 7 data.frame list
## [378,] 7 data.frame list
## [379,] 7 data.frame list
## [380,] 7 data.frame list
## [381,] 7 data.frame list
## [382,] 7 data.frame list
## [383,] 7 data.frame list
## [384,] 7 data.frame list
## [385,] 7 data.frame list
## [386,] 7 data.frame list
## [387,] 7 data.frame list
## [388,] 7 data.frame list
## [389,] 7 data.frame list
## [390,] 7 data.frame list
## [391,] 7 data.frame list
## [392,] 7 data.frame list
## [393,] 7 data.frame list
## [394,] 7 data.frame list
## [395,] 7 data.frame list
## [396,] 7 data.frame list
## [397,] 7 data.frame list
## [398,] 7 data.frame list
## [399,] 7 data.frame list
## [400,] 7 data.frame list
## [401,] 7 data.frame list
## [402,] 7 data.frame list
## [403,] 7 data.frame list
## [404,] 7 data.frame list
## [405,] 7 data.frame list
## [406,] 7 data.frame list
## [407,] 7 data.frame list
## [408,] 7 data.frame list
## [409,] 7 data.frame list
## [410,] 7 data.frame list
## [411,] 7 data.frame list
## [412,] 7 data.frame list
## [413,] 7 data.frame list
## [414,] 7 data.frame list
## [415,] 7 data.frame list
## [416,] 7 data.frame list
## [417,] 7 data.frame list
## [418,] 7 data.frame list
## [419,] 7 data.frame list
## [420,] 7 data.frame list
## [421,] 7 data.frame list
## [422,] 7 data.frame list
## [423,] 7 data.frame list
## [424,] 7 data.frame list
## [425,] 7 data.frame list
## [426,] 7 data.frame list
## [427,] 7 data.frame list
## [428,] 7 data.frame list
## [429,] 7 data.frame list
## [430,] 7 data.frame list
## [431,] 7 data.frame list
## [432,] 7 data.frame list
## [433,] 7 data.frame list
## [434,] 7 data.frame list
## [435,] 7 data.frame list
## [436,] 7 data.frame list
## [437,] 7 data.frame list
## [438,] 7 data.frame list
## [439,] 7 data.frame list
## [440,] 7 data.frame list
## [441,] 7 data.frame list
## [442,] 7 data.frame list
## [443,] 7 data.frame list
## [444,] 7 data.frame list
## [445,] 7 data.frame list
## [446,] 7 data.frame list
## [447,] 7 data.frame list
## [448,] 7 data.frame list
## [449,] 7 data.frame list
## [450,] 7 data.frame list
## [451,] 7 data.frame list
## [452,] 7 data.frame list
## [453,] 7 data.frame list
## [454,] 7 data.frame list
## [455,] 7 data.frame list
## [456,] 7 data.frame list
## [457,] 7 data.frame list
## [458,] 7 data.frame list
## [459,] 7 data.frame list
## [460,] 7 data.frame list
## [461,] 7 data.frame list
## [462,] 7 data.frame list
## [463,] 7 data.frame list
## [464,] 7 data.frame list
## [465,] 7 data.frame list
## [466,] 7 data.frame list
## [467,] 7 data.frame list
## [468,] 7 data.frame list
## [469,] 7 data.frame list
## [470,] 7 data.frame list
## [471,] 7 data.frame list
## [472,] 7 data.frame list
## [473,] 7 data.frame list
## [474,] 7 data.frame list
## [475,] 7 data.frame list
## [476,] 7 data.frame list
## [477,] 7 data.frame list
## [478,] 7 data.frame list
## [479,] 7 data.frame list
## [480,] 7 data.frame list
## [481,] 7 data.frame list
## [482,] 7 data.frame list
## [483,] 7 data.frame list
## [484,] 7 data.frame list
## [485,] 7 data.frame list
## [486,] 7 data.frame list
## [487,] 7 data.frame list
## [488,] 7 data.frame list
## [489,] 7 data.frame list
## [490,] 7 data.frame list
## [491,] 7 data.frame list
## [492,] 7 data.frame list
## [493,] 7 data.frame list
## [494,] 7 data.frame list
## [495,] 7 data.frame list
## [496,] 7 data.frame list
## [497,] 7 data.frame list
## [498,] 7 data.frame list
## [499,] 7 data.frame list
## [500,] 7 data.frame list
## [501,] 7 data.frame list
## [502,] 7 data.frame list
## [503,] 7 data.frame list
## [504,] 7 data.frame list
## [505,] 7 data.frame list
## [506,] 7 data.frame list
## [507,] 7 data.frame list
## [508,] 7 data.frame list
## [509,] 7 data.frame list
## [510,] 7 data.frame list
## [511,] 7 data.frame list
## [512,] 7 data.frame list
## [513,] 7 data.frame list
## [514,] 7 data.frame list
## [515,] 7 data.frame list
## [516,] 7 data.frame list
## [517,] 7 data.frame list
## [518,] 7 data.frame list
## [519,] 7 data.frame list
## [520,] 7 data.frame list
## [521,] 7 data.frame list
## [522,] 7 data.frame list
## [523,] 7 data.frame list
## [524,] 7 data.frame list
## [525,] 7 data.frame list
## [526,] 7 data.frame list
## [527,] 7 data.frame list
## [528,] 7 data.frame list
## [529,] 7 data.frame list
## [530,] 7 data.frame list
## [531,] 7 data.frame list
## [532,] 7 data.frame list
## [533,] 7 data.frame list
## [534,] 7 data.frame list
## [535,] 7 data.frame list
## [536,] 7 data.frame list
## [537,] 7 data.frame list
## [538,] 7 data.frame list
## [539,] 7 data.frame list
## [540,] 7 data.frame list
## [541,] 7 data.frame list
## [542,] 7 data.frame list
## [543,] 7 data.frame list
## [544,] 7 data.frame list
## [545,] 7 data.frame list
## [546,] 7 data.frame list
## [547,] 7 data.frame list
## [548,] 7 data.frame list
## [549,] 7 data.frame list
## [550,] 7 data.frame list
## [551,] 7 data.frame list
## [552,] 7 data.frame list
## [553,] 7 data.frame list
## [554,] 7 data.frame list
## [555,] 7 data.frame list
## [556,] 7 data.frame list
## [557,] 7 data.frame list
## [558,] 7 data.frame list
## [559,] 7 data.frame list
## [560,] 7 data.frame list
## [561,] 7 data.frame list
## [562,] 7 data.frame list
## [563,] 7 data.frame list
## [564,] 7 data.frame list
## [565,] 7 data.frame list
## [566,] 7 data.frame list
## [567,] 7 data.frame list
## [568,] 7 data.frame list
## [569,] 7 data.frame list
## [570,] 7 data.frame list
## [571,] 7 data.frame list
## [572,] 7 data.frame list
## [573,] 7 data.frame list
## [574,] 7 data.frame list
## [575,] 7 data.frame list
## [576,] 7 data.frame list
## [577,] 7 data.frame list
## [578,] 7 data.frame list
## [579,] 7 data.frame list
## [580,] 7 data.frame list
## [581,] 7 data.frame list
## [582,] 7 data.frame list
## [583,] 7 data.frame list
## [584,] 7 data.frame list
## [585,] 7 data.frame list
## [586,] 7 data.frame list
## [587,] 7 data.frame list
## [588,] 7 data.frame list
## [589,] 7 data.frame list
## [590,] 7 data.frame list
## [591,] 7 data.frame list
## [592,] 7 data.frame list
## [593,] 7 data.frame list
## [594,] 7 data.frame list
## [595,] 7 data.frame list
## [596,] 7 data.frame list
## [597,] 7 data.frame list
## [598,] 7 data.frame list
## [599,] 7 data.frame list
## [600,] 7 data.frame list
## [601,] 7 data.frame list
## [602,] 7 data.frame list
## [603,] 7 data.frame list
## [604,] 7 data.frame list
## [605,] 7 data.frame list
## [606,] 7 data.frame list
## [607,] 7 data.frame list
## [608,] 7 data.frame list
## [609,] 7 data.frame list
## [610,] 7 data.frame list
## [611,] 7 data.frame list
## [612,] 7 data.frame list
## [613,] 7 data.frame list
## [614,] 7 data.frame list
## [615,] 7 data.frame list
## [616,] 7 data.frame list
## [617,] 7 data.frame list
## [618,] 7 data.frame list
## [619,] 7 data.frame list
## [620,] 7 data.frame list
## [621,] 7 data.frame list
## [622,] 7 data.frame list
## [623,] 7 data.frame list
## [624,] 7 data.frame list
## [625,] 7 data.frame list
## [626,] 7 data.frame list
## [627,] 7 data.frame list
## [628,] 7 data.frame list
## [629,] 7 data.frame list
## [630,] 7 data.frame list
## [631,] 7 data.frame list
## [632,] 7 data.frame list
## [633,] 7 data.frame list
## [634,] 7 data.frame list
## [635,] 7 data.frame list
## [636,] 7 data.frame list
## [637,] 7 data.frame list
## [638,] 7 data.frame list
## [639,] 7 data.frame list
## [640,] 7 data.frame list
## [641,] 7 data.frame list
## [642,] 7 data.frame list
## [643,] 7 data.frame list
## [644,] 7 data.frame list
## [645,] 7 data.frame list
## [646,] 7 data.frame list
## [647,] 7 data.frame list
## [648,] 7 data.frame list
## [649,] 7 data.frame list
## [650,] 7 data.frame list
## [651,] 7 data.frame list
## [652,] 7 data.frame list
## [653,] 7 data.frame list
## [654,] 7 data.frame list
## [655,] 7 data.frame list
## [656,] 7 data.frame list
## [657,] 7 data.frame list
## [658,] 7 data.frame list
## [659,] 7 data.frame list
## [660,] 7 data.frame list
## [661,] 7 data.frame list
## [662,] 7 data.frame list
## [663,] 7 data.frame list
## [664,] 7 data.frame list
## [665,] 7 data.frame list
## [666,] 7 data.frame list
## [667,] 7 data.frame list
## [668,] 7 data.frame list
## [669,] 7 data.frame list
## [670,] 7 data.frame list
## [671,] 7 data.frame list
## [672,] 7 data.frame list
## [673,] 7 data.frame list
## [674,] 7 data.frame list
## [675,] 7 data.frame list
## [676,] 7 data.frame list
## [677,] 7 data.frame list
## [678,] 7 data.frame list
## [679,] 7 data.frame list
## [680,] 7 data.frame list
## [681,] 7 data.frame list
## [682,] 7 data.frame list
## [683,] 7 data.frame list
## [684,] 7 data.frame list
## [685,] 7 data.frame list
## [686,] 7 data.frame list
## [687,] 7 data.frame list
## [688,] 7 data.frame list
## [689,] 7 data.frame list
## [690,] 7 data.frame list
## [691,] 7 data.frame list
## [692,] 7 data.frame list
## [693,] 7 data.frame list
## [694,] 7 data.frame list
## [695,] 7 data.frame list
## [696,] 7 data.frame list
## [697,] 7 data.frame list
## [698,] 7 data.frame list
## [699,] 7 data.frame list
## [700,] 7 data.frame list
## [701,] 7 data.frame list
## [702,] 7 data.frame list
## [703,] 7 data.frame list
## [704,] 7 data.frame list
## [705,] 7 data.frame list
## [706,] 7 data.frame list
## [707,] 7 data.frame list
## [708,] 7 data.frame list
## [709,] 7 data.frame list
## [710,] 7 data.frame list
## [711,] 7 data.frame list
## [712,] 7 data.frame list
## [713,] 7 data.frame list
## [714,] 7 data.frame list
## [715,] 7 data.frame list
## [716,] 7 data.frame list
## [717,] 7 data.frame list
## [718,] 7 data.frame list
## [719,] 7 data.frame list
## [720,] 7 data.frame list
## [721,] 7 data.frame list
## [722,] 7 data.frame list
## [723,] 7 data.frame list
## [724,] 7 data.frame list
## [725,] 7 data.frame list
## [726,] 7 data.frame list
## [727,] 7 data.frame list
## [728,] 7 data.frame list
## [729,] 7 data.frame list
## [730,] 7 data.frame list
## [731,] 7 data.frame list
## [732,] 7 data.frame list
## [733,] 7 data.frame list
## [734,] 7 data.frame list
## [735,] 7 data.frame list
## [736,] 7 data.frame list
## [737,] 7 data.frame list
## [738,] 7 data.frame list
## [739,] 7 data.frame list
## [740,] 7 data.frame list
## [741,] 7 data.frame list
## [742,] 7 data.frame list
## [743,] 7 data.frame list
## [744,] 7 data.frame list
## [745,] 7 data.frame list
## [746,] 7 data.frame list
## [747,] 7 data.frame list
## [748,] 7 data.frame list
## [749,] 7 data.frame list
## [750,] 7 data.frame list
## [751,] 7 data.frame list
## [752,] 7 data.frame list
## [753,] 7 data.frame list
## [754,] 7 data.frame list
## [755,] 7 data.frame list
## [756,] 7 data.frame list
## [757,] 7 data.frame list
## [758,] 7 data.frame list
## [759,] 7 data.frame list
## [760,] 7 data.frame list
## [761,] 7 data.frame list
## [762,] 7 data.frame list
## [763,] 7 data.frame list
## [764,] 7 data.frame list
## [765,] 7 data.frame list
## [766,] 7 data.frame list
## [767,] 7 data.frame list
## [768,] 7 data.frame list
## [769,] 7 data.frame list
## [770,] 7 data.frame list
## [771,] 7 data.frame list
## [772,] 7 data.frame list
## [773,] 7 data.frame list
## [774,] 7 data.frame list
## [775,] 7 data.frame list
## [776,] 7 data.frame list
## [777,] 7 data.frame list
## [778,] 7 data.frame list
## [779,] 7 data.frame list
## [780,] 7 data.frame list
## [781,] 7 data.frame list
## [782,] 7 data.frame list
## [783,] 7 data.frame list
## [784,] 7 data.frame list
## [785,] 7 data.frame list
## [786,] 7 data.frame list
## [787,] 7 data.frame list
## [788,] 7 data.frame list
## [789,] 7 data.frame list
## [790,] 7 data.frame list
## [791,] 7 data.frame list
## [792,] 7 data.frame list
## [793,] 7 data.frame list
## [794,] 7 data.frame list
## [795,] 7 data.frame list
## [796,] 7 data.frame list
## [797,] 7 data.frame list
## [798,] 7 data.frame list
## [799,] 7 data.frame list
## [800,] 7 data.frame list
## [801,] 7 data.frame list
## [802,] 7 data.frame list
## [803,] 7 data.frame list
## [804,] 7 data.frame list
## [805,] 7 data.frame list
## [806,] 7 data.frame list
## [807,] 7 data.frame list
## [808,] 7 data.frame list
## [809,] 7 data.frame list
## [810,] 7 data.frame list
## [811,] 7 data.frame list
## [812,] 7 data.frame list
## [813,] 7 data.frame list
## [814,] 7 data.frame list
## [815,] 7 data.frame list
## [816,] 7 data.frame list
## [817,] 7 data.frame list
## [818,] 7 data.frame list
## [819,] 7 data.frame list
## [820,] 7 data.frame list
## [821,] 7 data.frame list
## [822,] 7 data.frame list
## [823,] 7 data.frame list
## [824,] 7 data.frame list
## [825,] 7 data.frame list
## [826,] 7 data.frame list
## [827,] 7 data.frame list
## [828,] 7 data.frame list
## [829,] 7 data.frame list
## [830,] 7 data.frame list
## [831,] 7 data.frame list
## [832,] 7 data.frame list
## [833,] 7 data.frame list
## [834,] 7 data.frame list
## [835,] 7 data.frame list
## [836,] 7 data.frame list
## [837,] 7 data.frame list
## [838,] 7 data.frame list
## [839,] 7 data.frame list
## [840,] 7 data.frame list
## [841,] 7 data.frame list
## [842,] 7 data.frame list
## [843,] 7 data.frame list
## [844,] 7 data.frame list
## [845,] 7 data.frame list
## [846,] 7 data.frame list
## [847,] 7 data.frame list
## [848,] 7 data.frame list
## [849,] 7 data.frame list
## [850,] 7 data.frame list
## [851,] 7 data.frame list
## [852,] 7 data.frame list
## [853,] 7 data.frame list
## [854,] 7 data.frame list
## [855,] 7 data.frame list
## [856,] 7 data.frame list
## [857,] 7 data.frame list
## [858,] 7 data.frame list
## [859,] 7 data.frame list
## [860,] 7 data.frame list
## [861,] 7 data.frame list
## [862,] 7 data.frame list
## [863,] 7 data.frame list
## [864,] 7 data.frame list
## [865,] 7 data.frame list
## [866,] 7 data.frame list
## [867,] 7 data.frame list
## [868,] 7 data.frame list
## [869,] 7 data.frame list
## [870,] 7 data.frame list
## [871,] 7 data.frame list
## [872,] 7 data.frame list
## [873,] 7 data.frame list
## [874,] 7 data.frame list
## [875,] 7 data.frame list
## [876,] 7 data.frame list
## [877,] 7 data.frame list
## [878,] 7 data.frame list
## [879,] 7 data.frame list
## [880,] 7 data.frame list
## [881,] 7 data.frame list
## [882,] 7 data.frame list
## [883,] 7 data.frame list
## [884,] 7 data.frame list
## [885,] 7 data.frame list
## [886,] 7 data.frame list
## [887,] 7 data.frame list
## [888,] 7 data.frame list
## [889,] 7 data.frame list
## [890,] 7 data.frame list
## [891,] 7 data.frame list
## [892,] 7 data.frame list
## [893,] 7 data.frame list
## [894,] 7 data.frame list
## [895,] 7 data.frame list
## [896,] 7 data.frame list
## [897,] 7 data.frame list
## [898,] 7 data.frame list
## [899,] 7 data.frame list
## [900,] 7 data.frame list
## [901,] 7 data.frame list
## [902,] 7 data.frame list
## [903,] 7 data.frame list
## [904,] 7 data.frame list
## [905,] 7 data.frame list
## [906,] 7 data.frame list
## [907,] 7 data.frame list
## [908,] 7 data.frame list
## [909,] 7 data.frame list
## [910,] 7 data.frame list
## [911,] 7 data.frame list
## [912,] 7 data.frame list
## [913,] 7 data.frame list
## [914,] 7 data.frame list
## [915,] 7 data.frame list
## [916,] 7 data.frame list
## [917,] 7 data.frame list
## [918,] 7 data.frame list
## [919,] 7 data.frame list
## [920,] 7 data.frame list
## [921,] 7 data.frame list
## [922,] 7 data.frame list
## [923,] 7 data.frame list
## [924,] 7 data.frame list
## [925,] 7 data.frame list
## [926,] 7 data.frame list
## [927,] 7 data.frame list
## [928,] 7 data.frame list
## [929,] 7 data.frame list
## [930,] 7 data.frame list
## [931,] 7 data.frame list
## [932,] 7 data.frame list
## [933,] 7 data.frame list
## [934,] 7 data.frame list
## [935,] 7 data.frame list
## [936,] 7 data.frame list
## [937,] 7 data.frame list
## [938,] 7 data.frame list
## [939,] 7 data.frame list
## [940,] 7 data.frame list
## [941,] 7 data.frame list
## [942,] 7 data.frame list
## [943,] 7 data.frame list
## [944,] 7 data.frame list
## [945,] 7 data.frame list
## [946,] 7 data.frame list
## [947,] 7 data.frame list
## [948,] 7 data.frame list
## [949,] 7 data.frame list
## [950,] 7 data.frame list
## [951,] 7 data.frame list
## [952,] 7 data.frame list
## [953,] 7 data.frame list
## [954,] 7 data.frame list
## [955,] 7 data.frame list
## [956,] 7 data.frame list
## [957,] 7 data.frame list
## [958,] 7 data.frame list
## [959,] 7 data.frame list
## [960,] 7 data.frame list
## [961,] 7 data.frame list
## [962,] 7 data.frame list
## [963,] 7 data.frame list
## [964,] 7 data.frame list
## [965,] 7 data.frame list
## [966,] 7 data.frame list
## [967,] 7 data.frame list
## [968,] 7 data.frame list
## [969,] 7 data.frame list
## [970,] 7 data.frame list
## [971,] 7 data.frame list
## [972,] 7 data.frame list
## [973,] 7 data.frame list
## [974,] 7 data.frame list
## [975,] 7 data.frame list
## [976,] 7 data.frame list
## [977,] 7 data.frame list
## [978,] 7 data.frame list
## [979,] 7 data.frame list
## [980,] 7 data.frame list
## [981,] 7 data.frame list
## [982,] 7 data.frame list
## [983,] 7 data.frame list
## [984,] 7 data.frame list
## [985,] 7 data.frame list
## [986,] 7 data.frame list
## [987,] 7 data.frame list
## [988,] 7 data.frame list
## [989,] 7 data.frame list
## [990,] 7 data.frame list
## [991,] 7 data.frame list
## [992,] 7 data.frame list
## [993,] 7 data.frame list
## [994,] 7 data.frame list
## [995,] 7 data.frame list
## [996,] 7 data.frame list
## [997,] 7 data.frame list
## [998,] 7 data.frame list
## [999,] 7 data.frame list
## [1000,] 7 data.frame list
## [1001,] 7 data.frame list
## [1002,] 7 data.frame list
## [1003,] 7 data.frame list
## [1004,] 7 data.frame list
## [1005,] 7 data.frame list
## [1006,] 7 data.frame list
## [1007,] 7 data.frame list
## [1008,] 7 data.frame list
## [1009,] 7 data.frame list
## [1010,] 7 data.frame list
## [1011,] 7 data.frame list
## [1012,] 7 data.frame list
## [1013,] 7 data.frame list
## [1014,] 7 data.frame list
## [1015,] 7 data.frame list
## [1016,] 7 data.frame list
## [1017,] 7 data.frame list
## [1018,] 7 data.frame list
## [1019,] 7 data.frame list
## [1020,] 7 data.frame list
## [1021,] 7 data.frame list
## [1022,] 7 data.frame list
## [1023,] 7 data.frame list
## [1024,] 7 data.frame list
## [1025,] 7 data.frame list
## [1026,] 7 data.frame list
## [1027,] 7 data.frame list
## [1028,] 7 data.frame list
## [1029,] 7 data.frame list
## [1030,] 7 data.frame list
## [1031,] 7 data.frame list
## [1032,] 7 data.frame list
## [1033,] 7 data.frame list
## [1034,] 7 data.frame list
## [1035,] 7 data.frame list
## [1036,] 7 data.frame list
## [1037,] 7 data.frame list
## [1038,] 7 data.frame list
## [1039,] 7 data.frame list
## [1040,] 7 data.frame list
## [1041,] 7 data.frame list
## [1042,] 7 data.frame list
## [1043,] 7 data.frame list
## [1044,] 7 data.frame list
## [1045,] 7 data.frame list
## [1046,] 7 data.frame list
## [1047,] 7 data.frame list
## [1048,] 7 data.frame list
## [1049,] 7 data.frame list
## [1050,] 7 data.frame list
## [1051,] 7 data.frame list
## [1052,] 7 data.frame list
## [1053,] 7 data.frame list
## [1054,] 7 data.frame list
## [1055,] 7 data.frame list
## [1056,] 7 data.frame list
## [1057,] 7 data.frame list
## [1058,] 7 data.frame list
## [1059,] 7 data.frame list
## [1060,] 7 data.frame list
## [1061,] 7 data.frame list
## [1062,] 7 data.frame list
## [1063,] 7 data.frame list
## [1064,] 7 data.frame list
## [1065,] 7 data.frame list
## [1066,] 7 data.frame list
## [1067,] 7 data.frame list
## [1068,] 7 data.frame list
## [1069,] 7 data.frame list
## [1070,] 7 data.frame list
## [1071,] 7 data.frame list
## [1072,] 7 data.frame list
## [1073,] 7 data.frame list
## [1074,] 7 data.frame list
## [1075,] 7 data.frame list
## [1076,] 7 data.frame list
## [1077,] 7 data.frame list
## [1078,] 7 data.frame list
## [1079,] 7 data.frame list
## [1080,] 7 data.frame list
## [1081,] 7 data.frame list
## [1082,] 7 data.frame list
## [1083,] 7 data.frame list
## [1084,] 7 data.frame list
## [1085,] 7 data.frame list
## [1086,] 7 data.frame list
## [1087,] 7 data.frame list
## [1088,] 7 data.frame list
## [1089,] 7 data.frame list
## [1090,] 7 data.frame list
## [1091,] 7 data.frame list
## [1092,] 7 data.frame list
## [1093,] 7 data.frame list
## [1094,] 7 data.frame list
## [1095,] 7 data.frame list
## [1096,] 7 data.frame list
## [1097,] 7 data.frame list
## [1098,] 7 data.frame list
## [1099,] 7 data.frame list
## [1100,] 7 data.frame list
## [1101,] 7 data.frame list
## [1102,] 7 data.frame list
## [1103,] 7 data.frame list
## [1104,] 7 data.frame list
## [1105,] 7 data.frame list
## [1106,] 7 data.frame list
## [1107,] 7 data.frame list
## [1108,] 7 data.frame list
## [1109,] 7 data.frame list
## [1110,] 7 data.frame list
## [1111,] 7 data.frame list
## [1112,] 7 data.frame list
## [1113,] 7 data.frame list
## [1114,] 7 data.frame list
## [1115,] 7 data.frame list
## [1116,] 7 data.frame list
## [1117,] 7 data.frame list
## [1118,] 7 data.frame list
## [1119,] 7 data.frame list
## [1120,] 7 data.frame list
## [1121,] 7 data.frame list
## [1122,] 7 data.frame list
## [1123,] 7 data.frame list
## [1124,] 7 data.frame list
## [1125,] 7 data.frame list
## [1126,] 7 data.frame list
## [1127,] 7 data.frame list
## [1128,] 7 data.frame list
## [1129,] 7 data.frame list
## [1130,] 7 data.frame list
## [1131,] 7 data.frame list
## [1132,] 7 data.frame list
## [1133,] 7 data.frame list
## [1134,] 7 data.frame list
## [1135,] 7 data.frame list
## [1136,] 7 data.frame list
## [1137,] 7 data.frame list
## [1138,] 7 data.frame list
## [1139,] 7 data.frame list
## [1140,] 7 data.frame list
## [1141,] 7 data.frame list
## [1142,] 7 data.frame list
## [1143,] 7 data.frame list
## [1144,] 7 data.frame list
## [1145,] 7 data.frame list
## [1146,] 7 data.frame list
## [1147,] 7 data.frame list
## [1148,] 7 data.frame list
## [1149,] 7 data.frame list
## [1150,] 7 data.frame list
## [1151,] 7 data.frame list
## [1152,] 7 data.frame list
## [1153,] 7 data.frame list
## [1154,] 7 data.frame list
## [1155,] 7 data.frame list
## [1156,] 7 data.frame list
## [1157,] 7 data.frame list
## [1158,] 7 data.frame list
## [1159,] 7 data.frame list
## [1160,] 7 data.frame list
## [1161,] 7 data.frame list
## [1162,] 7 data.frame list
## [1163,] 7 data.frame list
## [1164,] 7 data.frame list
## [1165,] 7 data.frame list
## [1166,] 7 data.frame list
## [1167,] 7 data.frame list
## [1168,] 7 data.frame list
## [1169,] 7 data.frame list
## [1170,] 7 data.frame list
## [1171,] 7 data.frame list
## [1172,] 7 data.frame list
## [1173,] 7 data.frame list
## [1174,] 7 data.frame list
## [1175,] 7 data.frame list
## [1176,] 7 data.frame list
## [1177,] 7 data.frame list
## [1178,] 7 data.frame list
## [1179,] 7 data.frame list
## [1180,] 7 data.frame list
## [1181,] 7 data.frame list
## [1182,] 7 data.frame list
## [1183,] 7 data.frame list
## [1184,] 7 data.frame list
## [1185,] 7 data.frame list
## [1186,] 7 data.frame list
## [1187,] 7 data.frame list
## [1188,] 7 data.frame list
## [1189,] 7 data.frame list
## [1190,] 7 data.frame list
## [1191,] 7 data.frame list
## [1192,] 7 data.frame list
## [1193,] 7 data.frame list
## [1194,] 7 data.frame list
## [1195,] 7 data.frame list
## [1196,] 7 data.frame list
## [1197,] 7 data.frame list
## [1198,] 7 data.frame list
## [1199,] 7 data.frame list
## [1200,] 7 data.frame list
## [1201,] 7 data.frame list
## [1202,] 7 data.frame list
## [1203,] 7 data.frame list
## [1204,] 7 data.frame list
## [1205,] 7 data.frame list
## [1206,] 7 data.frame list
## [1207,] 7 data.frame list
## [1208,] 7 data.frame list
## [1209,] 7 data.frame list
## [1210,] 7 data.frame list
## [1211,] 7 data.frame list
## [1212,] 7 data.frame list
## [1213,] 7 data.frame list
## [1214,] 7 data.frame list
## [1215,] 7 data.frame list
## [1216,] 7 data.frame list
## [1217,] 7 data.frame list
## [1218,] 7 data.frame list
## [1219,] 7 data.frame list
## [1220,] 7 data.frame list
## [1221,] 7 data.frame list
## [1222,] 7 data.frame list
## [1223,] 7 data.frame list
## [1224,] 7 data.frame list
## [1225,] 7 data.frame list
## [1226,] 7 data.frame list
## [1227,] 7 data.frame list
## [1228,] 7 data.frame list
## [1229,] 7 data.frame list
## [1230,] 7 data.frame list
## [1231,] 7 data.frame list
## [1232,] 7 data.frame list
## [1233,] 7 data.frame list
## [1234,] 7 data.frame list
## [1235,] 7 data.frame list
## [1236,] 7 data.frame list
## [1237,] 7 data.frame list
## [1238,] 7 data.frame list
## [1239,] 7 data.frame list
## [1240,] 7 data.frame list
## [1241,] 7 data.frame list
## [1242,] 7 data.frame list
## [1243,] 7 data.frame list
## [1244,] 7 data.frame list
## [1245,] 7 data.frame list
## [1246,] 7 data.frame list
## [1247,] 7 data.frame list
## [1248,] 7 data.frame list
## [1249,] 7 data.frame list
## [1250,] 7 data.frame list
## [1251,] 7 data.frame list
## [1252,] 7 data.frame list
## [1253,] 7 data.frame list
## [1254,] 7 data.frame listdomicilio ahora contiene en cada fila, un dataframe con las direcciones geolocalizadas
uniremos todas las filas con reduce para generar un único dataset
reduce() es una operación que combina los elementos de un vector en un solo valor. rbind La función rbind en R, abreviatura de row-bind , se puede usar para combinar vectores, matrices y dataframes por filas.
domicilio <- domicilio %>%
reduce(rbind)
summary(domicilio)## query lat lon lat_min
## Length:1254 Min. :-34.69 Min. :-58.53 Min. :-34.69
## Class :character 1st Qu.:-34.64 1st Qu.:-58.47 1st Qu.:-34.64
## Mode :character Median :-34.62 Median :-58.43 Median :-34.62
## Mean :-34.62 Mean :-58.44 Mean :-34.62
## 3rd Qu.:-34.60 3rd Qu.:-58.40 3rd Qu.:-34.60
## Max. :-34.54 Max. :-58.35 Max. :-34.54
## NA's :201 NA's :201 NA's :201
## lat_max lon_min lon_max
## Min. :-34.69 Min. :-58.53 Min. :-58.53
## 1st Qu.:-34.64 1st Qu.:-58.47 1st Qu.:-58.47
## Median :-34.62 Median :-58.44 Median :-58.43
## Mean :-34.62 Mean :-58.44 Mean :-58.44
## 3rd Qu.:-34.60 3rd Qu.:-58.40 3rd Qu.:-58.40
## Max. :-34.53 Max. :-58.35 Max. :-58.35
## NA's :201 NA's :201 NA's :201head(domicilio)## query lat lon lat_min
## 1 BRAVO MARIO 234 , CABA, Argentina -34.60797 -58.41753 -34.60802
## 2 URQUIZA GENERAL 609 , CABA, Argentina -34.61769 -58.41019 -34.61894
## 3 BRANDSEN 2570 , CABA, Argentina -34.63286 -58.35542 -34.63336
## 4 GARCIA MARTIN AVENIDA 874 , CABA, Argentina -34.63428 -58.37479 -34.63447
## 5 24 DE NOVIEMBRE 1536 , CABA, Argentina -34.62904 -58.40980 -34.62909
## 6 ECHEVERRIA 955 , CABA, Argentina -34.55352 -58.44125 -34.55419
## lat_max lon_min lon_max
## 1 -34.60792 -58.41758 -58.41748
## 2 -34.61670 -58.41090 -58.40943
## 3 -34.63207 -58.35655 -58.35346
## 4 -34.63398 -58.37501 -58.37457
## 5 -34.62899 -58.40985 -58.40975
## 6 -34.55286 -58.44207 -58.44043verificamos que quedó “graficable” generando un mapa con leaflet
leaflet(domicilio) %>%
addProviderTiles(providers$CartoDB.DarkMatter) %>%
addCircleMarkers(~lon, ~lat,
color = "white")## Warning in validateCoords(lng, lat, funcName): Data contains 201 rows with
## either missing or invalid lat/lon values and will be ignoredCompletamos el dataframe domicilios con las coordenadas obtenidas
domicilios <- domicilios %>%
left_join(domicilio, by=c("domicilio"="query"))le sacamos los mínimos y máximos de las coordenadas (al ser puntos son redundantes)
domicilios <- domicilios %>%
select(-lat_min,-lat_max,-lon_min,-lon_max)lo grabamos en un CSV para uso posterior
write.csv(domicilios,"data/Domicilios_con_coord.csv",fileEncoding = "UTF-8")sin_coordenadas <- domicilios %>%
filter(is.na(lat))Observamos que, como era esperable, no se puedan resolver la geocodificación de todas las direcciones y debe refinarse la forma de escribir las calles
Generamos un CSV para revisarlo y procesarlo posteriormente
write.csv(sin_coordenadas,"data/Sin_coordenadas.csv",fileEncoding = "UTF-8")Lo convertimos a formato geojson y lo grabamos
reparticiones_geo <- domicilios %>%
filter(!is.na(lat)) %>%
st_as_sf(coords = c("lon", "lat"), crs = 4326)st_delete("data/Reparticiones_geo.geojson")## Deleting source `data/Reparticiones_geo.geojson' using driver `GeoJSON'st_write(reparticiones_geo,"data/Reparticiones_geo.geojson",fileEncoding = "UTF-8")## Writing layer `Reparticiones_geo' to data source
## `data/Reparticiones_geo.geojson' using driver `GeoJSON'
## Writing 1053 features with 5 fields and geometry type Point.