r - geom_sf 如何在不保存绘图的情况下修剪空白

Question

我正在尝试修剪 ggplot 中的空白区域使用 geom_sf() 创建的 map 。我发现有多个资源讨论在使用 ggsave() 保存绘图时删除空白。不过，我希望无需保存即可删除空白区域。

使用 ggsave() 删除空格 - R ggplot, remove white margins in ggsave/ggplot

请在下面找到一个可重现的示例:

library(spData); library(sf); library(ggplot2)
library(cowplot)
data("us_states", package = "spData")

north_carolina = read_sf(system.file("shape/nc.shp", package = "sf"))

nc_plot <- ggplot() + geom_sf(data = north_carolina)

现在，我希望 nc_plot 出现在 ggdraw() 图的左下角。 ggdraw() 绘图的坐标从左下角开始。所以，x = 0, y = 0 应该是左下角。

ggdraw() + draw_plot(nc_plot, x = 0, y = 0)

不过，如您所见，情节一直在左侧，但并非一直在底部。这是因为绘图上方和下方有空白。我想从绘图中删除空白区域，以便我可以在左下方显示 map 。

Answer 1

要完成@Skaqqs 的回答并为您提供替代解决方案，您还可以通过修改最后一行代码继续使用 cowplot 包，如下所示:

• 代码

library(sf)
library(ggplot2)
library(cowplot)


ggdraw() + draw_plot(nc_plot, x = -0.24, y = -0.34, scale = 0.5)

• 可视化

^{由 reprex package 创建于 2022-01-11 (v2.0.1)}