Existe uma maneira em R de especificar o espaço entre os eixos X para que eles se ajustem ao meu mapa?

Estou tentando exibir um planisfério usando um mapa da biblioteca rnaturalearth e quero adicionar alguns eixos X e Y em cada lado do meu planisfério. Consegui configurar corretamente os eixos Y, mas não consigo encontrar uma maneira de configurar corretamente o eixo X. Aqui está o resultado que obtive até agora:

Como você pode ver, a largura do eixo X é igual à largura do planisfério na latitude 0°, mas eu quero que ele tenha a mesma largura que o planisfério na latitude 80°. Eu criei o resultado que quero obter na imagem a seguir (desculpem minhas péssimas habilidades com pintura) :

Lamento que você não consiga ver as linhas dos meridianos. Não sei por que a captura de tela não mostrou as linhas dos meridianos.

Agora vamos falar sobre meu código, aqui está a biblioteca que eu uso:

library(ggplot2) 
library(dplyr)
library(sf)
library(rnaturalearth)
library(rnaturalearthdata)
library(readxl)

E aqui está meu código que gera tudo:

world <- ne_countries(scale = "medium", returnclass = "sf")

longitudes <- longitudes <- c(-180, -140, -100, -60, -20, 0, 20, 60, 100, 140, 180)

# Créer les données pour les labels de longitude (axe X)
bottomXAxis <- lapply(longitudes, function(x) {
  st_sf(label = paste0(abs(x), '\u00b0'),
        geometry = st_sfc(st_point(c(x, 0)), crs = 'WGS84'))
}) %>% bind_rows()

topXAxis <- lapply(longitudes, function(x) {
  st_sf(label = paste0(abs(x), '\u00b0'),
        geometry = st_sfc(st_point(c(x, 0)), crs = 'WGS84'))
}) %>% bind_rows()

nudgeXValues <- rep(0, length(longitudes))


# Créer les données pour les labels de latitude (axe Y)
leftYAxis <- lapply(c(-80, -60, -40, -20, 0, 20, 40, 60, 80), function(y) {
  st_sf(label = paste0(abs(y), '\u00b0'),
        geometry = st_sfc(st_point(c(-180, y)), crs = 'WGS84'))
}) %>% bind_rows()

rightYAxis <- lapply(c(-80, -60, -40, -20, 0, 20, 40, 60, 80), function(y) {
  st_sf(label = paste0(abs(y), '\u00b0'),
        geometry = st_sfc(st_point(c(180, y)), crs = 'WGS84'))
}) %>% bind_rows()

nudge_left_y <- c(-1.6e6, -1.2e6, -0.8e6, -0.4e6, -0.2e6, -0.4e6, -0.8e6, -1.2e6, -1.6e6)
nudge_right_y <- c(1.6e6, 1.4e6, 1e6, 0.6e6, 0.4e6, 0.6e6, 1e6, 1.4e6, 1.6e6)

# Affichage de la carte avec les labels de longitude et latitude
world %>%
  ggplot() +
  geom_sf(color = "black", linewidth = 0.1) +
  geom_sf_text(data = topXAxis, aes(label = label), size = 3.5, color = 'black',
               nudge_y = rep(9e6, length(topXAxis$label)),
               nudge_x = nudgeXValues) +
  geom_sf_text(data = bottomXAxis, aes(label = label), size = 3.5, color = 'black',
               nudge_y = rep(-9e6, length(bottomXAxis$label)),
               nudge_x = nudgeXValues) +
  geom_sf_text(data = leftYAxis, aes(label = label), size = 3.5, color = 'black',
               nudge_x = nudge_left_y) +
  geom_sf_text(data = rightYAxis, aes(label = label), size = 3.5, color = 'black',
               nudge_x = nudge_right_y) +
  coord_sf(crs = "+proj=robin", expand = TRUE) +
  theme_minimal() +
  theme(axis.title = element_blank())

Tentei várias opções como scale_x_continous com xlim, mas não funcionou. Espero que alguém tenha a solução. Além disso, ainda sou iniciante em programação em R, então não hesitem se tiverem algum outro feedback sobre o meu código.

Obrigado !