问题描述
我正在尝试使用ggmap来绘制区域。问题在于ggmap仅绘制正方形地图。我想做的只是将地图扩展一点,这样地图就可以完美地适合了。这是我的代码。您可以下载shapefile数据here。
AMB_Contour <- readOGR(dsn = '.',layer='AMB_Contour')
myprojection_latlong <- "+proj=longlat +zone=31 +datum=WGS84 +ellps=WGS84 +towgs84=0,0"
AMB_Contour <- spTransform(AMB_Contour,myprojection_latlong)
tract_plot <- tidy(AMB_Contour)
CenterOfMap <- geocode("41.396108,2.059348")
Ciutat_NoLabels <- get_googlemap(c(lon=CenterOfMap$lon,lat=CenterOfMap$lat),zoom = 11,maptype = "terrain",source = "google",color="bw",style=c(feature="all",element="labels",visibility="off"))
ggmap(Ciutat_NoLabels)
CityMap_NoLabels <- ggmap(Ciutat_NoLabels,extent = "device")
print(CityMap_NoLabels)
CityMapWithRoutesAndStops <- CityMap_NoLabels + geom_polygon(aes(x=long,y=lat,group=group),fill=NA,size=1.5,color='black',data=tract_plot,alpha=1)
print(CityMapWithRoutesAndStops)
我的地图的东部不完全适合。我也尝试过手动调整 x-y 坐标,但是它不起作用。我不想更改zoom参数,因为对我来说这是完美的,唯一的问题是东部。最后,我想要那个地图类型(地形)。
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)