我一直想知道是否可以避免 Ggplot2 包含这个外部边距（绘图区域周围黑框之外的空白区域[我认为又名绘图边距]）。下面是我的代码，我可以很好地控制绘图边距，但我尝试了不同的方法来减少外部边距，但到目前为止没有任何效果。
我还想澄清一下，我知道在执行 ggsave 时可以通过宽度和高度选项来控制它。但是，我想使用类似的东西：
grid.newpage()
pushViewport(viewport(layout = grid.layout(2, 2)))
define_region <- function(row, col){viewport(layout.pos.row = row, layout.pos.col = col)}
print(Map1, vp = define_region(1, 1:2)) +
print(Map2, vp = define_region(2, 1)) +
print(Map3, vp = define_region(2, 2))
所以我想在保存过程之前去掉这些空格。
预先非常感谢，乔治。
ggplot() +
geom_sf(data = FRO, fill = "#fff5f0", color = "black") +
geom_sf(data = Coords_FRO_sf, aes(fill = Class_Article), size = 5, alpha = 0.9, show.legend = "point", shape = 21, colour = "black") +
coord_sf(xlim = c(-8, -5.75), ylim = c(61.35, 62.45)) +
geom_label_repel(data = Coords_FRO, colour = "black",
size = 4.5, force = 3,
nudge_x = 0.05, nudge_y = 0.075, segment.curvature = 1,
fontface = "bold",
aes(x = Longitude, y = Latitude, label = Location, fill = Class_Article, family = "Helvetica"), show.legend = FALSE) +
annotation_north_arrow(location = "br", which_north = "false", style = north_arrow_fancy_orienteering,
pad_x = unit(0.25, "in"), pad_y = unit(0.25, "in")) +
annotation_scale(location = 'br', line_width = 2, text_cex = 1.35, style = "ticks") +
theme(panel.background = element_rect(fill = "#f7fbff"),
panel.border = element_rect(colour = "black", size = 0.5, fill = NA),
panel.grid.major = element_line(color = "#d9d9d9", linetype = "dashed", size = 0.00005),
plot.background = element_rect(fill="transparent"),
panel.margin = unit(c(4, 4, 4 , 4), "cm"), complete = TRUE) +
guides(color = "none", fill = "none") +
theme(axis.text.x = element_text(color = "black", size = 13, family = "Helvetica"),
axis.text.y = element_text(color = "black", size = 13, family = "Helvetica"),
axis.title = element_blank()) +
theme(axis.ticks = element_line(color ="black", size = 0.5))
ggsave(file = "FO.jpg", width = 26, height = 16, scale = 0.65, limitsize = FALSE, dpi = 300)
我想看看 X 消失的空白区域。
