Vẽ bản đồ google bằng ggplot trong R

Question

Tôi đang cố gắng vẽ mẫu Google map được truy vấn bằng gói RgoogleMaps và kết hợp nó với ggplot. Cuối cùng, tôi muốn hiển thị tổng dân số bằng cách sử dụng geom_point, tương tự như hình dưới đây tuy nhiên tôi đang cố gắng tập trung vào vùng Montgomery vì âm mưu quá mức.

Tôi thất vọng vì tôi không thể vẽ bản đồ được truy vấn của mình trong R. Tôi đã thử một vài gói như read.jpeg và png nhưng không hoàn toàn hiệu quả.

mã 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:

Dưới đây là kết quả thô của tôi. Tôi vẫn muốn:

• Thay đổi quy mô kích thước của dấu chấm vì chúng có vẻ khá nhỏ trên bản đồ.
• Làm cho các chấm trong suốt hoặc không được lấp đầy để bản đồ vẫn hiển thị.

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

Đây có phải là những gì bạn đang sau. Nó sử dụng gói ggmap, giúp đơn giản hóa quy trình. Xem ?get_map và ?ggmap để có thêm tùy chọn. Một nguồn tài nguyên tuyệt vời có sẵn trong The R Journal

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