Как использовать ggplot2::geom_segment() или ggspatial::geom_spatial_segment() для объектов научной фантастики, не сосредоточенных в Гринвиче?

Я хочу добавить пути на карту, созданную с помощью geom_sf в ggplot2.

Я знаком с использованием стандартной карты с центром в Гринвиче. Но когда я меняю дизайн карты(? crs), обычные методы не работают.

«Обычная» карта работает нормально.

point_df=data.frame(
  location=c('Tokyo','Brasilia','France'),
  lat=c(35.65,-15.79,48.86),
  long=c(139.84,-47.88,2.35)
)
point_df2=data.frame(
  from_location=c('Tokyo','Brasilia'),
  from_lat=c(35.65,-15.79),
  from_long=c(139.84,-47.88),
  to_location=c('France'),
  to_lat=c(48.86),
  to_long=c(2.35)
)

library("rnaturalearth")
world <- ne_countries(scale = "medium", returnclass = "sf")
transpoint = st_as_sf(point_df,coords=c("long","lat"),crs=4326)
world_sf <- st_transform(world, crs=4326)

ggplot(world_sf)+geom_sf()+
  geom_point(data=transpoint,aes(geometry=geometry,color=location),
stat = "sf_coordinates")+
  geom_text_repel(data=transpoint,aes(geometry=geometry,label=location),
stat = "sf_coordinates")+
  geom_curve(data=point_df2,
             aes(x=from_long,y=from_lat,xend=to_long,yend=to_lat),
colour='blue')

Не работает: карта с другим CRS или не в центре Гринвича.

Однако если я предпочитаю карту с Тихим океаном в центре или эллиптическую карту, они терпят неудачу.

Карта Тихоокеанского региона с sf::st_break_antimeridian()

Для карты с центром в Тихом океане я использовал код, адаптированный из Закрытые границы на карте при использовании geom_sf для пересечения линии дат Обратите внимание, что geom_point() работает нормально. geom_segment() полностью проваливается...

robinson <- "+proj=robin +lon_0=-90 +x_0=0 +y_0=0 +ellps=WGS84 +datum=WGS84 +units=m +no_defs"

world_pac <- world_sf %>%
  st_break_antimeridian(lon_0 = -90) %>% 
  st_transform(crs = robinson)

transpoint = st_as_sf(point_df,coords=c("long","lat"),crs=4326)
dtran = st_transform(transpoint,robinson)
library(ggrepel)
ggplot(world_pac)+geom_sf()+
  geom_point(data=dtran,aes(geometry=geometry,color=location),stat = "sf_coordinates")+
  geom_text_repel(data=dtran,aes(geometry=geometry,label=location),stat = "sf_coordinates")+
  geom_segment(data=point_df2, aes(x=from_long,y=from_lat,xend=to_long,yend=to_lat),
                       colour='blue')

На ggspatial::geom_spatial_segment() показаны кривые/сегменты, но они странные.

ggplot(world_pac)+geom_sf()+
  geom_point(data=dtran,aes(geometry=geometry,color=location),stat = "sf_coordinates")+
  geom_text_repel(data=dtran,aes(geometry=geometry,label=location),stat = "sf_coordinates")+
  geom_spatial_segment(data=point_df2, aes(x=from_long,y=from_lat,xend=to_long,yend=to_lat),crs=4326,
                       wrap_dateline = FALSE,
                       colour='blue')

Карта с многоточием

Я также не смогу заставить geom_segment() или geom_spatial_segment() работать, если трансформируюсь в crs=2163.

world_ellipse <- world_sf %>%
  st_transform(crs=2163)

transpoint = st_as_sf(point_df,coords=c("long","lat"),crs=4326)
dtran = st_transform(transpoint,crs=2163)

ggplot(world_ellipse)+geom_sf()+
  geom_point(data=dtran,aes(geometry=geometry,color=location),stat = "sf_coordinates")+
  geom_text_repel(data=dtran,aes(geometry=geometry,label=location),stat = "sf_coordinates")
geom_spatial_segment(data=point_df2,
                     aes(from_long, from_lat, xend = to_long, yend = to_lat),crs = 2163,
                     wrap_dateline = FALSE)

Что мне здесь не хватает? Как работать с geom_segment() и/или geom_spatial_segment() с ggplot2::geom_sf(), когда мы используем разные CRS?