Georeferenciado comida vegana
Leímos esta nota del portal www.0221.com.ar en la que detalla dónde están los lugares para comprar comida vegana y con los datos que obtuvimos, decidimos mapear en qué calles están esos lugares.
Buscamos nuestros archivo y cargamos nuestros paquetes y librerías.
veganos <- read.csv("/cloud/project/veganos.csv", sep=";")
veganos## Lugar Direccion
## 1 Bye Henry 44 entre 17 y 18
## 2 Jocks 49 entre 6 y 7
## 3 Romania 13 entre 45 y 46
## 4 Lemmens 49 esquina 16
## 5 Charola 51 entre 4 y 5
## 6 Foodie Special Burguer 5 esquina 51
## 7 Ámsterdam 5 esquina 66
## 8 El Club de la Milanesa diagonal 74 entre 10 y 46
## 9 El Patio de Cortez 44 y 17
## 10 La Compostera 8 esquina 60
## 11 Hans Cocina Natural 14 y 41
## 12 Curry Green Market 9 N 644
## 13 Saavedra 3 y 38
## 14 Pipistrello 46 entre 5 y 6
## 15 Casablanca 55 entre 8 y 9
## 16 Roots 10 y diagonal 73
## 17 Chido Restobar Diagonal 74 y 58
## 18 Empanadas Doritas 34 entre 7 y 8
## 19 Creperie Diagonal 74 esquina 46
## 20 Rockabilly Diagonal 74 entre 8 y 45
## 21 All Wrap 10 entre 46 y 47
## 22 Nat Sabores Dulces 49 entre 4 y 5
## 23 La Platense Av 7 350
## 24 Costumbres Argentinas 8 entre 44 y 45
## 25 Lupita 49 10 y 11
## 26 La Birrería 10 entre 48 y 49
## 27 Dean & Dennys 49 10 y 11
## 28 Otilia Burguers 41 entre 6 y 7
## 29 Quinquela Birra y Barrio diagonal 78 esquina 10
## 30 Me Piacce 54 entre 8 y 9
## 31 Sanguchan 1 y 49
## Comida
## 1 Hamburguesa vegana
## 2 Hamburguesa vegana
## 3 Hamburguesa vegana
## 4 Hamburguesa vegana
## 5 Hamburguesa vegana
## 6 Hamburguesa vegana
## 7 Hamburguesa vegana
## 8 Hamburguesa vegana
## 9 Hamburguesa vegana
## 10 Resto vegano
## 11 Resto vegano
## 12 Almacen vegano
## 13 Pizza con paparella
## 14 pizza vegana con vegetales y tofu
## 15 Pizza sin queso
## 16 pizzas y empanadas veganas
## 17 Burritos y tacos veganos
## 18 Empanadas veganas de humita, hongos y verduras
## 19 Crepes veganos y sin TACC.
## 20 Sánguches veganos
## 21 wrap veganos y vegetarianos
## 22 budines veganos licuados o café con leche de almendra
## 23 facturas, bizcochos, cremonas y masitas dulces veganas
## 24 medialunas veganas
## 25 papas fritas con guacamole, nachos y otros snacks veganos y vegetarianos
## 26 Hamburguesa vegana
## 27 Hamburguesa vegana
## 28 Hamburguesa vegana
## 29 Hamburguesa vegana
## 30 Sanguche vegano
## 31 Sanguche vegano
## Ciudad
## 1 La Plata
## 2 La Plata
## 3 La Plata
## 4 La Plata
## 5 La Plata
## 6 La Plata
## 7 La Plata
## 8 La Plata
## 9 La Plata
## 10 La Plata
## 11 La Plata
## 12 La Plata
## 13 La Plata
## 14 La Plata
## 15 La Plata
## 16 La Plata
## 17 La Plata
## 18 La Plata
## 19 La Plata
## 20 La Plata
## 21 La Plata
## 22 La Plata
## 23 La Plata
## 24 La Plata
## 25 La Plata
## 26 La Plata
## 27 La Plata
## 28 La Plata
## 29 La Plata
## 30 La Plata
## 31 La PlataVamos a buscar las coordenadas de cada lugar que vende comida vegana para poder verlos en nuestro futuro mapa.
Decidimos utilizar el paquete ggmap que, como hemos visto, incluye la función mutate_geocode que agrega coordenadas al dataframe al que ya le dijimos que hay una lista de direcciones en cada fila.
Como somos testarudos, decidimos darle nuestros datos de tarjeta a Google para que nos deje utilizar sus mapas
De paso también le damos nuestra lista de direcciones.
Para georeferenciar. Usamos mutate_geocode(), y para el parámetro “location” usamos la columna recén creada, “Dir_completa”:
install.packages("tidyverse")## Installing package into '/home/rstudio-user/R/x86_64-pc-linux-gnu-library/3.6'
## (as 'lib' is unspecified)library(tidyverse)## ── Attaching packages ──────────────────────────────────────────── tidyverse 1.2.1 ──## ✔ ggplot2 3.2.1 ✔ purrr 0.3.2
## ✔ tibble 2.1.3 ✔ dplyr 0.8.3
## ✔ tidyr 0.8.3 ✔ stringr 1.4.0
## ✔ readr 1.3.1 ✔ forcats 0.4.0## ── Conflicts ─────────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()veganos <- veganos %>%
mutate(Dir_completa = paste(Direccion, ",", Ciudad))
veganos## Lugar Direccion
## 1 Bye Henry 44 entre 17 y 18
## 2 Jocks 49 entre 6 y 7
## 3 Romania 13 entre 45 y 46
## 4 Lemmens 49 esquina 16
## 5 Charola 51 entre 4 y 5
## 6 Foodie Special Burguer 5 esquina 51
## 7 Ámsterdam 5 esquina 66
## 8 El Club de la Milanesa diagonal 74 entre 10 y 46
## 9 El Patio de Cortez 44 y 17
## 10 La Compostera 8 esquina 60
## 11 Hans Cocina Natural 14 y 41
## 12 Curry Green Market 9 N 644
## 13 Saavedra 3 y 38
## 14 Pipistrello 46 entre 5 y 6
## 15 Casablanca 55 entre 8 y 9
## 16 Roots 10 y diagonal 73
## 17 Chido Restobar Diagonal 74 y 58
## 18 Empanadas Doritas 34 entre 7 y 8
## 19 Creperie Diagonal 74 esquina 46
## 20 Rockabilly Diagonal 74 entre 8 y 45
## 21 All Wrap 10 entre 46 y 47
## 22 Nat Sabores Dulces 49 entre 4 y 5
## 23 La Platense Av 7 350
## 24 Costumbres Argentinas 8 entre 44 y 45
## 25 Lupita 49 10 y 11
## 26 La Birrería 10 entre 48 y 49
## 27 Dean & Dennys 49 10 y 11
## 28 Otilia Burguers 41 entre 6 y 7
## 29 Quinquela Birra y Barrio diagonal 78 esquina 10
## 30 Me Piacce 54 entre 8 y 9
## 31 Sanguchan 1 y 49
## Comida
## 1 Hamburguesa vegana
## 2 Hamburguesa vegana
## 3 Hamburguesa vegana
## 4 Hamburguesa vegana
## 5 Hamburguesa vegana
## 6 Hamburguesa vegana
## 7 Hamburguesa vegana
## 8 Hamburguesa vegana
## 9 Hamburguesa vegana
## 10 Resto vegano
## 11 Resto vegano
## 12 Almacen vegano
## 13 Pizza con paparella
## 14 pizza vegana con vegetales y tofu
## 15 Pizza sin queso
## 16 pizzas y empanadas veganas
## 17 Burritos y tacos veganos
## 18 Empanadas veganas de humita, hongos y verduras
## 19 Crepes veganos y sin TACC.
## 20 Sánguches veganos
## 21 wrap veganos y vegetarianos
## 22 budines veganos licuados o café con leche de almendra
## 23 facturas, bizcochos, cremonas y masitas dulces veganas
## 24 medialunas veganas
## 25 papas fritas con guacamole, nachos y otros snacks veganos y vegetarianos
## 26 Hamburguesa vegana
## 27 Hamburguesa vegana
## 28 Hamburguesa vegana
## 29 Hamburguesa vegana
## 30 Sanguche vegano
## 31 Sanguche vegano
## Ciudad Dir_completa
## 1 La Plata 44 entre 17 y 18 , La Plata
## 2 La Plata 49 entre 6 y 7 , La Plata
## 3 La Plata 13 entre 45 y 46 , La Plata
## 4 La Plata 49 esquina 16 , La Plata
## 5 La Plata 51 entre 4 y 5 , La Plata
## 6 La Plata 5 esquina 51 , La Plata
## 7 La Plata 5 esquina 66 , La Plata
## 8 La Plata diagonal 74 entre 10 y 46 , La Plata
## 9 La Plata 44 y 17 , La Plata
## 10 La Plata 8 esquina 60 , La Plata
## 11 La Plata 14 y 41 , La Plata
## 12 La Plata 9 N 644 , La Plata
## 13 La Plata 3 y 38 , La Plata
## 14 La Plata 46 entre 5 y 6 , La Plata
## 15 La Plata 55 entre 8 y 9 , La Plata
## 16 La Plata 10 y diagonal 73 , La Plata
## 17 La Plata Diagonal 74 y 58 , La Plata
## 18 La Plata 34 entre 7 y 8 , La Plata
## 19 La Plata Diagonal 74 esquina 46 , La Plata
## 20 La Plata Diagonal 74 entre 8 y 45 , La Plata
## 21 La Plata 10 entre 46 y 47 , La Plata
## 22 La Plata 49 entre 4 y 5 , La Plata
## 23 La Plata Av 7 350 , La Plata
## 24 La Plata 8 entre 44 y 45 , La Plata
## 25 La Plata 49 10 y 11 , La Plata
## 26 La Plata 10 entre 48 y 49 , La Plata
## 27 La Plata 49 10 y 11 , La Plata
## 28 La Plata 41 entre 6 y 7 , La Plata
## 29 La Plata diagonal 78 esquina 10 , La Plata
## 30 La Plata 54 entre 8 y 9 , La Plata
## 31 La Plata 1 y 49 , La PlataEntonces, ahora, para georeferenciar vamos a usar mutate_geocode(), y para el parámetro “location” usamos la columna “Dir_completa” y, como somos generosos y pusimos la terjeta de crédito en google, le vamos a pedir en breve que sea él quien nos haga el mapa.
install.packages("ggmap")## Installing package into '/home/rstudio-user/R/x86_64-pc-linux-gnu-library/3.6'
## (as 'lib' is unspecified)library(ggmap)## Google's Terms of Service: https://cloud.google.com/maps-platform/terms/.## Please cite ggmap if you use it! See citation("ggmap") for details.veganos <- veganos %>% mutate_geocode(location = Dir_completa)## Source : https://maps.googleapis.com/maps/api/geocode/json?address=44+entre+17+y+18+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=49+entre+6+y+7+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=13+entre+45+y+46+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=49+esquina+16+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=51+entre+4+y+5+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=5+esquina+51+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=5+esquina+66+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=diagonal+74+entre+10+y+46+,+La+Plata&key=xxx## "diagonal 74 entre..." not uniquely geocoded, using "diagonal 74, la plata, buenos aires, argentina"## Source : https://maps.googleapis.com/maps/api/geocode/json?address=44+y+17+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=8+esquina+60+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=14+y+41+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=9+N+644+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=3+y+38+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=46+entre+5+y+6+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=55+entre+8+y+9+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=10+y+diagonal+73+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=Diagonal+74+y+58+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=34+entre+7+y+8+,+La+Plata&key=xxx## Warning: Geocoding "34 entre 7 y 8 , ..." failed with error:## Source : https://maps.googleapis.com/maps/api/geocode/json?address=Diagonal+74+esquina+46+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=Diagonal+74+entre+8+y+45+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=10+entre+46+y+47+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=49+entre+4+y+5+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=Av+7+350+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=8+entre+44+y+45+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=49+10+y+11+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=10+entre+48+y+49+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=49+10+y+11+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=41+entre+6+y+7+,+La+Plata&key=xxx## Warning: Geocoding "41 entre 6 y 7 , ..." failed with error:## Source : https://maps.googleapis.com/maps/api/geocode/json?address=diagonal+78+esquina+10+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=54+entre+8+y+9+,+La+Plata&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=1+y+49+,+La+Plata&key=xxxveganos## Lugar Direccion
## 1 Bye Henry 44 entre 17 y 18
## 2 Jocks 49 entre 6 y 7
## 3 Romania 13 entre 45 y 46
## 4 Lemmens 49 esquina 16
## 5 Charola 51 entre 4 y 5
## 6 Foodie Special Burguer 5 esquina 51
## 7 Ámsterdam 5 esquina 66
## 8 El Club de la Milanesa diagonal 74 entre 10 y 46
## 9 El Patio de Cortez 44 y 17
## 10 La Compostera 8 esquina 60
## 11 Hans Cocina Natural 14 y 41
## 12 Curry Green Market 9 N 644
## 13 Saavedra 3 y 38
## 14 Pipistrello 46 entre 5 y 6
## 15 Casablanca 55 entre 8 y 9
## 16 Roots 10 y diagonal 73
## 17 Chido Restobar Diagonal 74 y 58
## 18 Empanadas Doritas 34 entre 7 y 8
## 19 Creperie Diagonal 74 esquina 46
## 20 Rockabilly Diagonal 74 entre 8 y 45
## 21 All Wrap 10 entre 46 y 47
## 22 Nat Sabores Dulces 49 entre 4 y 5
## 23 La Platense Av 7 350
## 24 Costumbres Argentinas 8 entre 44 y 45
## 25 Lupita 49 10 y 11
## 26 La Birrería 10 entre 48 y 49
## 27 Dean & Dennys 49 10 y 11
## 28 Otilia Burguers 41 entre 6 y 7
## 29 Quinquela Birra y Barrio diagonal 78 esquina 10
## 30 Me Piacce 54 entre 8 y 9
## 31 Sanguchan 1 y 49
## Comida
## 1 Hamburguesa vegana
## 2 Hamburguesa vegana
## 3 Hamburguesa vegana
## 4 Hamburguesa vegana
## 5 Hamburguesa vegana
## 6 Hamburguesa vegana
## 7 Hamburguesa vegana
## 8 Hamburguesa vegana
## 9 Hamburguesa vegana
## 10 Resto vegano
## 11 Resto vegano
## 12 Almacen vegano
## 13 Pizza con paparella
## 14 pizza vegana con vegetales y tofu
## 15 Pizza sin queso
## 16 pizzas y empanadas veganas
## 17 Burritos y tacos veganos
## 18 Empanadas veganas de humita, hongos y verduras
## 19 Crepes veganos y sin TACC.
## 20 Sánguches veganos
## 21 wrap veganos y vegetarianos
## 22 budines veganos licuados o café con leche de almendra
## 23 facturas, bizcochos, cremonas y masitas dulces veganas
## 24 medialunas veganas
## 25 papas fritas con guacamole, nachos y otros snacks veganos y vegetarianos
## 26 Hamburguesa vegana
## 27 Hamburguesa vegana
## 28 Hamburguesa vegana
## 29 Hamburguesa vegana
## 30 Sanguche vegano
## 31 Sanguche vegano
## Ciudad Dir_completa lon lat
## 1 La Plata 44 entre 17 y 18 , La Plata -57.96962 -34.92387
## 2 La Plata 49 entre 6 y 7 , La Plata -57.95357 -34.92049
## 3 La Plata 13 entre 45 y 46 , La Plata -57.96031 -34.91725
## 4 La Plata 49 esquina 16 , La Plata -57.95968 -34.92278
## 5 La Plata 51 entre 4 y 5 , La Plata -57.94638 -34.91309
## 6 La Plata 5 esquina 51 , La Plata -57.95357 -34.92049
## 7 La Plata 5 esquina 66 , La Plata -57.94304 -34.93345
## 8 La Plata diagonal 74 entre 10 y 46 , La Plata -57.95481 -34.91951
## 9 La Plata 44 y 17 , La Plata -57.96962 -34.92387
## 10 La Plata 8 esquina 60 , La Plata -57.95357 -34.92049
## 11 La Plata 14 y 41 , La Plata -57.94607 -34.89665
## 12 La Plata 9 N 644 , La Plata -76.97525 38.52929
## 13 La Plata 3 y 38 , La Plata -57.95357 -34.92049
## 14 La Plata 46 entre 5 y 6 , La Plata -57.95357 -34.92049
## 15 La Plata 55 entre 8 y 9 , La Plata -57.94751 -34.91823
## 16 La Plata 10 y diagonal 73 , La Plata -57.94809 -34.92109
## 17 La Plata Diagonal 74 y 58 , La Plata -57.95419 -34.92847
## 18 La Plata 34 entre 7 y 8 , La Plata NA NA
## 19 La Plata Diagonal 74 esquina 46 , La Plata -57.95481 -34.91951
## 20 La Plata Diagonal 74 entre 8 y 45 , La Plata -57.95481 -34.91951
## 21 La Plata 10 entre 46 y 47 , La Plata -57.95548 -34.91554
## 22 La Plata 49 entre 4 y 5 , La Plata -57.94810 -34.91206
## 23 La Plata Av 7 350 , La Plata -57.96093 -34.90631
## 24 La Plata 8 entre 44 y 45 , La Plata -57.97051 -34.92657
## 25 La Plata 49 10 y 11 , La Plata -57.95357 -34.92049
## 26 La Plata 10 entre 48 y 49 , La Plata -57.95432 -34.91644
## 27 La Plata 49 10 y 11 , La Plata -57.95357 -34.92049
## 28 La Plata 41 entre 6 y 7 , La Plata NA NA
## 29 La Plata diagonal 78 esquina 10 , La Plata -57.94190 -34.92586
## 30 La Plata 54 entre 8 y 9 , La Plata -57.96457 -34.93268
## 31 La Plata 1 y 49 , La Plata -57.95357 -34.92049Y luego de poner la Key de Google, le damos la orden que nos muestre nuestro interesante mapa.
mapa_LaPlata <- get_map("Ciudad de La Plata", zoom = 12)## Source : https://maps.googleapis.com/maps/api/staticmap?center=Ciudad%20de%20La%20Plata&zoom=12&size=640x640&scale=2&maptype=terrain&language=en-EN&key=xxx## Source : https://maps.googleapis.com/maps/api/geocode/json?address=Ciudad+de+La+Plata&key=xxxY ahora con los lugares recomendados
ggmap(mapa_LaPlata) +
geom_point(data = veganos,
aes(x = lon, y = lat),
size = 3,
alpha = .5,
color = "brown") +
labs(title = "Comida Vegana en La Plata recomendados por la nota de 0221",
subtitle = "ubicación")## Warning: Removed 3 rows containing missing values (geom_point).