Trazando el mapa de google con ggplot en R

Question

Estoy tratando de trazar Google map que se consulta usando el paquete RgoogleMaps y combinándolo con ggplot. En última instancia, quiero mostrar la población total usando geom_point, algo similar a la imagen de abajo; sin embargo, estoy tratando de concentrarme en la región de Montgomery debido al exceso de trazado.

Estoy frustrado porque no puedo trazar mi mapa consultado en R. Probé un par de paquetes como read.jpeg y png pero no funcionó del todo.

códigos R:

#query google map 
al1 <- GetMap(center=c(32.362563,-86.304474), zoom=11, destfile = "al2.jpeg", 
     format="jpg",maptype="roadmap") 

#load only specific states 
alabama <- subset(all_states, region %in% c("alabama")) 

#population 
p1 <- ggplot() 
p1 <- p1 + geom_polygon(data=alabama, 
     aes(x=long, y=lat, group=group), colour="white", fill="grey10") 
p1 <- p1 + geom_point(data=quote, aes(x=IntPtLon, y=IntPtLat, size=TotPop, 
     color=TotPop),colour="coral1") + scale_size(name="Total Pop") 

EDIT:

aquí está mi resultado bruto. Todavía quiero:

• Cambie la escala del tamaño de los puntos porque parecen bastante pequeños en el mapa.
• Haga que los puntos sean transparentes o no llenos para que el mapa siga visible.

al1 <- get_map(location = c(lon = -86.304474, lat = 32.362563), zoom = 11, maptype = 'terrain') 
al1MAP <- ggmap(al1)+ geom_point(data=quote_mgm, aes(x=IntPtLon, y=IntPtLat, size=TotPop)) 

Answer 1

¿Es esto lo que está buscando. Utiliza el paquete ggmap, que simplifica el proceso. Vea ?get_map y ?ggmap para más opciones. Un excelente recurso está disponible en The R Journal

library(ggmap) 
al1 = get_map(location = c(lon = -86.304474, lat = 32.362563), zoom = 11, maptype = 'roadmap') 
al1MAP = ggmap(al1) 
al1MAP