Как убрать серые области и Антарктику с карты?

Question

Я не знаю, как удалить две области с карты: Антарктику и серую область, появляющуюся сверху, справа и слева от изображения.

Я попробовал почти все ответы здесь,но в некоторых случаях результаты, появляющиеся после выполнения кода, даже не похожи на ответы, я предполагаю, что в некоторых случаях ответы немного старше, и первоначальная функция изменилась через 5 или 6 лет.

gc <- geocode('spain')
center <- as.numeric(gc) 
map <- get_map(location = center, source="stamen", zoom=1)
ggmap(map)

Это оригинальный код, который создает карту мира.Я хочу установить пределы, чтобы избежать всей серой части, а также antartica.

Если изменить зум = 2, я потерял Австралию.

Фактические результаты:

Ожидаемые результаты:

Answer 1

 cities <- c('usuahia','alaska','new_zealand','greenland_sea')
 lat <- c(-54.80191, 64.20084, -27.46977,77.870977)
 lon <- c(-68.3030, -149.49367, 153.025124,-5.650146)
 limits <- data.frame(cities,lat,lon)

 mbound <- c(min(limits$lon), #min/max longitude/latitude to display on the map
         min(limits$lat),
         max(limits$lon),
         max(limits$lat))

 worldmap <- get_stamenmap(bbox=mbound, zoom = 3)

 [![enter image description here][1]][1]ggmap(worldmap)