如何将Grob内的表格对齐到面板左侧而非居中？

是否可以将Grob中的表格对齐到面板左侧，而非默认的居中对齐？下方示例代码中，下方面板的表格处于居中状态，希望将其改为左对齐，但尚未找到实现方法。刚接触Grobs，若有更优实现方案，欢迎提供建议！

示例代码：

library(gridExtra)
library(grid)

grid.arrange(
  grobTree(
    rectGrob(gp=gpar(fill="gray", col = NA)),
    textGrob("Title\nThis is some text.\nAnd more text.\nAnd more text.",
             x = 0.01, y=0.95, gp = gpar(fontsize = 12), just = c("left", "top"))
  ),
  grobTree(
    rectGrob(gp=gpar(fill="lightgray", col = NA)),
    tableGrob(head(mtcars[1:4]), rows = NULL)
  )
)

示例截图：

^{Created on 2023-10-19 with reprex v2.0.2}

要实现tableGrob的左对齐，只需要调整表格的位置参数即可，以下是两种可行方法：

方法1：直接调整tableGrob的位置与对齐方式 #

在创建tableGrob时，通过x参数指定左侧锚点位置，配合just参数设置左对齐，代码改动最小：

library(gridExtra)
library(grid)

grid.arrange(
  grobTree(
    rectGrob(gp=gpar(fill="gray", col = NA)),
    textGrob("Title\nThis is some text.\nAnd more text.\nAnd more text.",
             x = 0.01, y=0.95, gp = gpar(fontsize = 12), just = c("left", "top"))
  ),
  grobTree(
    rectGrob(gp=gpar(fill="lightgray", col = NA)),
    # 设置表格左对齐，x=0.01对应面板左侧1%的位置
    tableGrob(head(mtcars[1:4]), rows = NULL, 
              x = unit(0.01, "npc"), just = "left")
  )
)

方法2：使用Viewport精细控制布局 #

如果需要更复杂的布局管理，可以通过viewport定义表格的显示区域，适合多元素组合的场景：

library(gridExtra)
library(grid)

grid.arrange(
  grobTree(
    rectGrob(gp=gpar(fill="gray", col = NA)),
    textGrob("Title\nThis is some text.\nAnd more text.\nAnd more text.",
             x = 0.01, y=0.95, gp = gpar(fontsize = 12), just = c("left", "top"))
  ),
  grobTree(
    rectGrob(gp=gpar(fill="lightgray", col = NA)),
    # 创建左对齐的视口，将表格放入其中
    vp = viewport(x = 0, just = "left"),
    tableGrob(head(mtcars[1:4]), rows = NULL)
  )
)

补充建议 #

• 刚接触Grobs的用户优先选方法1，代码直观易理解；
• 若需复杂布局，可深入学习grid包的viewport系统，它支持更灵活的位置与尺寸控制；
• x参数支持多种单位，除了示例中的npc（归一化坐标，0为左、1为右），还可以用cm、inches等绝对单位实现精准定位。

内容的提问来源于stack exchange，提问作者jpquast