如何消除宽幅spplot绘图的多余边距并自主控制布局？

要彻底移除spplot周围的默认边距，完全交由grid控制布局，可以通过以下步骤实现：

核心解决思路 #

• 消除spplot内部边距：通过参数直接关闭绘图区域的默认内边距
• 清理grob外部空白：将spplot转为可编辑的grob对象，重置其视口（viewport）参数
• 精准控制grid布局：直接指定各元素的高度比例，避免依赖grob自身的高度计算

修改后的代码 #

library(sp)
library(grid)
library(gridExtra)

demo(meuse, ask = FALSE, echo = FALSE)

# 生成无内边距的spplot，指定aspect比例
p <- spplot(meuse, c("zinc"), aspect = 0.1,
            par.settings = list(
              layout.heights = list(top.padding = 0, bottom.padding = 0,
                                   left.padding = 0, right.padding = 0),
              layout.widths = list(top.padding = 0, bottom.padding = 0,
                                  left.padding = 0, right.padding = 0)
            ))

# 将spplot转为grob并移除外部padding
p_grob <- grid.grabExpr(print(p))
p_grob$vp$width <- unit(1, "npc")
p_grob$vp$height <- unit(1, "npc")
p_grob$vp$x <- unit(0.5, "npc")
p_grob$vp$y <- unit(0.5, "npc")

# 创建标题和副标题
tg <- textGrob('title', gp = gpar(fontsize = 14, fontface = "bold"))
sg <- textGrob('subtitle', gp = gpar(fontsize = 10))

# 用grid.arrange完成布局，精准控制各部分高度
grid.newpage()
grid.arrange(tg, sg, p_grob, ncol = 1,
             heights = unit.c(3*grobHeight(tg), grobHeight(sg), unit(0.8, "npc")))

关键细节说明 #

1. par.settings参数：通过layout.heights和layout.widths将所有方向的padding设为0，彻底关闭spplot内部的默认边距
2. grob视口重置：grid.grabExpr(print(p))提取spplot的grob对象后，修改其视口参数让绘图区域完全占满分配的空间，无额外外部空白
3. 高度控制：用unit(0.8, "npc")直接指定绘图区域的高度比例（npc为标准化坐标，0-1代表整个绘图窗口），比依赖grob自身高度更稳定，适配aspect比例极小的场景

内容的提问来源于stack exchange，提问作者Jérôme Tremblay