MapGoogle

#load data
MIO_STOPS <- read.delim("C:/Users/felip/Downloads/MIO_STOPS.txt")

#load library
library('ggplot2')
library('ggmap')
register_google("AIzaSyBVBzq2Yz_sMFUYRQpC_4GlguOOOHiHVSw")


calicoord <- c(-76.518644, 3.409492)
Location <- get_map(calicoord, zoom=17)
#Location <- get_map("Cali, Colombia", zoom = 15, maptype = "toner")

#Create Canvas

plot <- ggmap(Location)

#plot <- plot + geom_point(data=MIO_STOPS, aes(x=DECIMALLONGITUDE, y=DECIMALLATITUDE),color=as.factor(MIO_STOPS$TYPE_BUS),size=5 )

#plot <- plot + geom_text(data=MIO_STOPS, aes(x=DECIMALLONGITUDE, y=DECIMALLATITUDE),label=MIO_STOPS$SHORTNAME)

plot <- plot + geom_density2d()

#Display
plot