Mapa de Ensenada, Exploración Inicial

La información utilizada para realizar los siguientes mapas se obtuvo del Directorio Estadístico Nacional de unidades Económicas del Instituto Nacional de Geografía y Estadística.

Alcance geográfico de Hasmik Bakery

library(ggmap)
ensenada <- c(lon = -116.6064, lat = 31.8603)
# Get map at zoom level 13: 
ensenada_map <- get_map(ensenada, zoom = 12, scale = 1, maptype = "roadmap")
# Plot map at zoom level 13
ggmap(ensenada_map)

Agregando datos del DENUE del INEGI para Ensenada y seleccionando los necesarios

library(readr)
denue <- read_csv("D:/Dropbox/MsC UABC/Grupo DAIH/Aliados/CETYS/cetys/1. raw databases/denue_02_csv/conjunto_de_datos/denue_inegi_02_.csv")
denue <- as.data.frame(denue)
denueEnsenada <- denue[denue$municipio=="Ensenada",]
ggmap(ensenada_map) +
  geom_point(aes(longitud, latitud), data = denueEnsenada)

#actEconomicas <- denueEnsenada$nombre_act
#write.table(actEconomicas, "actEcon.txt", sep = "\t")
###########SELECIÓN DE ACTIVIDADES ECONÓMICAS MÁS PARECIDAS A HASMIK BAKERY
cafeEnsenada <- denueEnsenada[denueEnsenada$nombre_act== "Cafeterías, fuentes de sodas, neverías, refresquerías y similares",]
otrosAlim <- denueEnsenada[denueEnsenada$nombre_act== "Comercio al por menor de otros alimentos",] 
prepAlim <- denueEnsenada[denueEnsenada$nombre_act== "Servicios de preparación de alimentos para ocasiones especiales",]

Mapeo de resultados del DENUE

ggmap(ensenada_map) +
  geom_point(aes(longitud, latitud, color = per_ocu), data = cafeEnsenada) +
  ggtitle("Clientes Potenciales para Hasmik Bakery") +
  theme(plot.title = element_text(hjust = 0.5))

Mapeo de la competencia

ggmap(ensenada_map) +
  geom_point(aes(longitud, latitud, color = nomb_asent), data = prepAlim) +
  ggtitle("Potencial Competencia para Hasmik Bakery")