在 R 中使用 ggplot 绘制谷歌地图

我正在尝试绘制使用 RgoogleMaps 包查询并将其与 ggplot 结合起来。最后，我想显示使用的总人口geom_point，有点类似于下图，但由于过度绘制，我试图将注意力集中在蒙哥马利地区。

我很沮丧，因为我无法在 R 中绘制查询的地图。我尝试了几个软件包，例如read.jpeg and png但并没有完全成功。

R codes:

#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))

这就是你所追求的吗？它使用ggmap包，简化了流程。看?get_map and ?ggmap以获得更多选择。一个优秀的资源可以在R杂志 http://journal.r-project.org/archive/2013-1/kahle-wickham.pdf

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