r - 将基于 ggplot 的地图导出为地理参考 pdf

Question

有没有办法将使用 ggplot 和 ggmap 和 sf 包创建的地图导出为地理参考 pdf？我正在制作使用 ggmap 和 sf 包将底图与多边形、点和标签图层相结合的地图，是否可以将生成的地图导出为地理参考 pdf 以用于 avenza 等应用程序。映射与使用 sf 包中的 nc 示例的示例类似。

library(tidyverse)
library(sf)
library(ggmap)

POLYS <- st_read(system.file("shape/nc.shp", package="sf")) %>% st_transform(4326)

POINTS <- st_centroid(POLYS)

BASEMAP <-  get_map(location = unname(st_bbox(POLYS)), zoom = 8)

EX_MAP <- ggmap(BASEMAP)+
  geom_sf(data=POLYS, inherit.aes = F, fill=NA)+
  geom_sf(data=POINTS, inherit.aes = F)+
  geom_sf_label(data = POINTS, inherit.aes = F, nudge_y = 0.02, aes(label=NAME), size=2)


ggsave(EX_MAP, filename =  "EX_MAP.pdf")

标签： rggplot2sfggmap