Построение карты google с ggplot в R

Question

Я пытаюсь построить Google map, который запрашивается с помощью пакета RgoogleMaps и объединяет его с ggplot. В конечном счете, я хочу показать общее население, используя geom_point, несколько похожее на рисунок ниже, однако я стараюсь сосредоточиться на регионе Монтгомери из-за чрезмерного заговора.

Я расстроен, потому что я не могу построить свою запрошенную карту в R. Я пробовал пару пакетов, таких как read.jpeg и png, но это не совсем сработало.

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:

Вот мой грубый результат. Я все еще хочу:

• Изменить масштаб размеров точек, потому что они кажутся довольно маленькими на карте.
• Сделайте точки прозрачными или не заполненными, чтобы карта все еще была видна.

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

Это то, что вы после этого. Он использует пакет ggmap, который упрощает процесс. См. ?get_map и ?ggmap для дальнейших опций. Отличный ресурс доступен в The R Journal

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