扩大ggmap的水平范围

Question

我正在尝试使用ggmap来绘制区域。问题在于ggmap仅绘制正方形地图。我想做的只是将地图扩展一点，这样地图就可以完美地适合了。这是我的代码。您可以下载shapefile数据here。

AMB_Contour <- readOGR(dsn = '.', layer='AMB_Contour')
myprojection_latlong <- "+proj=longlat +zone=31 +datum=WGS84 +ellps=WGS84 +towgs84=0,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参数，因为对我来说这是完美的，唯一的问题是东部。最后，我想要那个地图类型（地形）。