Plotando o mapa do google com ggplot em R

Estou tentando traçarMapa do Google que é consultado usando o pacote RgoogleMaps e o combina com ggplot. Por fim, quero mostrar a população total usandogeom_point, um pouco semelhante à imagem abaixo, no entanto, estou tentando me concentrar na região de Montgomery por causa do excesso de plotagem.

Estou frustrado porque não consigo plotar meu mapa consultado em R. Eu tentei alguns pacotes comoread.jpeg epng mas não deu certo.

Códigos R:

<code>#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")
</code>

EDITAR:

Aqui está o meu resultado difícil. Eu ainda quero:

Altere a escala do tamanho dos pontos porque eles parecem pequenos no mapa.Torne os pontos transparentes ou não preenchidos para que o mapa ainda esteja visível.

<code>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))
</code>

questionAnswers(1)

yourAnswerToTheQuestion