r - 防止 spData::world 国家环绕 map /裁剪 map 区域

Question

我正在使用 sf::world 制作 map ，我只想绘制欧洲、非洲、亚洲和大洋洲:

library(sf)
map = spData::world %>%
    dplyr::filter(!continent %in% c("South America", "North America", "Antarctica"))

ggplot() + 
    geom_sf(data=map, aes(geometry=geom))

就目前情况而言，俄罗斯和大洋洲的部分地区正在环绕，并在图形上形成大量空白区域。

我尝试了 this answer 中的 st_crop 的各种组合。 ，剪掉空白:

st_crop(map, xmin=-30, xmax=180, ymin=-180, ymax=180)

但它似乎返回一张没有几何形状的空白 map 。我觉得解决方案是简单地使用这个函数，但我无法实现。

Answer 1

您可以使用此答案 https://stackoverflow.com/a/67977330/7756889 中提出的方法

library(sf)
library(ggplot2)

map = spData::world %>%
  dplyr::filter(!continent %in% c("South America", "North America", "Antarctica"))

# Russia only will not do; Fiji also crosses the antimeridean...
rossiya <- subset(map,  iso_a2 %in% c("RU", "FJ"))

pacified_rossiya <- st_shift_longitude(rossiya)

rest_of_world <- subset(map, !iso_a2 %in% c("RU", "FJ"))

map2 <- rbind(pacified_rossiya,
                rest_of_world) 

plot(st_geometry(map2))

它似乎在基本绘图中效果最好，但在应用于 ggplot2 时会崩溃。