ggmap包绘图在地图上填充多边形

Question

我正在网上搜索最简单的方法，用于在使用get_map命令生成的地图上方绘制阴影多边形。对于多边形，我有一些（纬度，经度）点。

我知道如何使用* .shp文件执行此操作必须为简单的应用程序耗费太多时间。

如果有人有一个很好的建议，可以用R 3.0.2以简单的方式做到这一点; - ）

Answer 1

您可以使用geom_polygon绘制多边形。尝试将以下命令添加到您的图中：

+ geom_polygon(data = yourdata, aes(x = lon, y = lat))

Answer 2

这是我的结果：

library(ggmap)
Longitude <- c(6.486318,7.290372,8.573611,6.811188,6.486318)
Latitude <- c(46.47924,46.15687,47.40744,46.99614,46.47924)
mydata <- as.data.frame(cbind(Longitude,Latitude))
mydata
swiss <- get_map("Switzerland",zoom=8)
ggmap(swiss)+
geom_polygon(data=mydata,aes(x=Longitude,y=Latitude),alpha=0.3,colour="red",fill="red")+
geom_path(data=mydata,aes(x=Longitude,y=Latitude),colour="white",alpha=0.7,size=3)+
annotate("point",x=7.257885,y=46.79049,size=7)+
annotate("text", x=7.257885,y=46.79049,label="Golden Swiss Area",colour="white",size=3)