Code
library(sf)
library(tmap)
library(dplyr)
library(stringr)
library(ggplot2)
Region made up of thousands of islands throughout the Central and South Pacific.
library(sf)
library(tmap)
library(dplyr)
library(stringr)
library(ggplot2)
<- "Oceania"
focus <- 170
lon0 <- -10
lat0 <- str_glue("+proj=ortho lon_0={lon0} lat_0={lat0}")
proj
<- st_read("data/ne_110m_admin_0_map_units.gpkg") %>%
world st_make_valid() %>%
select(CONTINENT)
<- world %>%
world_o st_transform(proj) %>%
st_make_valid() %>%
filter(!st_is_empty(.)) %>%
group_by(CONTINENT) %>%
summarise()
<- world %>%
continent filter(CONTINENT == focus)
tmap
ggplot2