扩大ggmap的水平范围

如何解决扩大ggmap的水平范围

我正在尝试使用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参数，因为对我来说这是完美的，唯一的问题是东部。最后，我想要那个地图类型（地形）。