MapaGoogle

Ejemplo de visualización del Lago Calima y de Cali

Usando directamente mapas de Gooble y también de otras fuentes

key<-"AIzaSyBVBzq2Yz_sMFUYRQpC_4GlguOOOHiHVSw"

library(ggplot2)

#install.packages("ggmap")
library(ggmap)

register_google(key)

#quic map
qmap("Lago Calima", zoom=14, mapatype="hybrid") # Mapas de google

qmap("Cali", zoom=14, source="stamen",maptype="toner") #Otra fuente de Mapas

Estaciones del Mio en Cali

Usando las coordenadas de ubicación de Google Maps

mio <- read.delim("C:/Users/vibr1874/Desktop/I Semestre MAIN/Visualizacion/mapaGoogle/Data/MIO_STOPS.txt")

caliCoords<-c(-76.52788, 3.476013)

# lienzo con el mapa

mapaCali<-get_map(caliCoords, zoom=14)

lienzo<-ggmap(mapaCali)
lienzo<-lienzo + geom_point(data=mio,aes(x=DECIMALLONGITUDE,y=DECIMALLATITUDE, size=PASSANGERS_NUM, alpha=.3))
lienzo

Estaciones del Mio sector Santa Mónica Popular (Comfandi El Prado)

Usando las coordenadas asociadas a la dirección de mi casa dadas por Google Maps

micasaCoords<-c(-76.5103411,3.4359949)

# lienzo con el mapa

mapaCali1<-get_map(micasaCoords, zoom=16)

lienzo1<-ggmap(mapaCali1)
lienzo1<-lienzo1 + geom_point(data=mio,aes(x=DECIMALLONGITUDE,y=DECIMALLATITUDE,size=PASSANGERS_NUM, alpha=.3, color=as.factor(TYPE_BUS)))
lienzo1<-lienzo1 + labs(title="Estaciones del Mío por tipo de bus-Suroriente de Cali")

lienzo1

Otra forma de representar las estaciones del Mio en el sector de Santa Mónica Popular al Suroriente de Cali

mapaCali1<-get_map(micasaCoords, zoom=16)

lienzo2<-ggmap(mapaCali1)
lienzo2<-lienzo2 + geom_point(data=mio,aes(x=DECIMALLONGITUDE,y=DECIMALLATITUDE,size=PASSANGERS_NUM, alpha=.3, color=as.factor(TYPE_BUS)))
lienzo2<-lienzo2 + labs(title="Estaciones del Mío por tipo de bus-Suroriente de Cali", caption = "Diámetro representa la cantidad de pasajeros por día")
lienzo2<- lienzo2 + facet_grid(TYPE_BUS~.)

lienzo2