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

时间:2014-02-16 14:41:27

标签: r ggplot2 polygons ggmap

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

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

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

2 个答案:

答案 0 :(得分:2)

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

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

答案 1 :(得分: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)

Resulting map