将ggplot2网格线移动到顶层但保留面板背景

Question

使用带有ggplot2的sf包，网格线用于绘制刻度。 通过将panel.ontop设置为TRUE ，可以在地图上放置经纬网：

library(sf)
library(ggplot2)

nc <- st_read(system.file("shape/nc.shp", package="sf"))

ggplot() +
    geom_sf(data = nc, fill='white') +
    coord_sf(expand = T) +
    theme(panel.border = element_rect(color = 'black', fill = NA),
          panel.background = element_blank(),
          panel.ontop = T,
          plot.background = element_rect(fill = "#ddefff"),
          axis.ticks = element_blank(),
          axis.text = element_blank()) +
    ggtitle("NC")

然而，我想要的是能够设置绘图区域的背景颜色，通常使用panel.background来完成。 这显然不适用于此，因为它将涵盖地图。

期望的结果：

我最初的想法是，我可以先添加geom_rect面板区域的确切大小，但我不确定如何获得这些尺寸。 如何将网格线保持在顶部，但仍然具有独特的面板背景颜色？

编辑

从下面的@sebdalgarno中得到了很好的答案，我发现我们可以使用expand_range来解决扩展问题（如ggplot2内部做的那样）：

bb <- st_bbox(nc)
bb[c(1,3,2,4)] <- c(scales::expand_range(c(bb$xmin, bb$xmax), mul = 0.05),
                    scales::expand_range(c(bb$ymin, bb$ymax), mul = 0.05))
bb <- bb %>% st_as_sfc() %>% st_sf()

现在这给出了与设置coord_sf(expand = T)相同的扩展因子。

Answer 1

此解决方案适用于expand = F：

按照你的geom_rect建议，将bbox转换为sf多边形

bb <- st_bbox(nc) %>% st_as_sfc() %>% st_sf()

并使用geom_sf绘图

ggplot() +
  geom_sf(data = bb, fill = 'grey') +
  geom_sf(data = nc, fill='white') +
  coord_sf(expand = F) +
  theme(panel.border = element_rect(color = 'black', fill = NA),
        panel.background = element_blank(),
        panel.ontop = T,
        plot.background = element_rect(fill = "#ddefff"),
        axis.ticks = element_blank(),
        axis.text = element_blank()) +
  ggtitle("NC")

如果你可以弄清楚如何手动扩展相同数量的bbox多边形，这可以使用expand = T.