R中如何用layout()将两个表格置于PDF顶部并排、修正居中问题并添加表标题

• 此前设置pagecentre = FALSE无效的根本原因：该参数仅控制PDF设备本身的画布偏移，无法干预grid图形系统（tableGrob、grid.arrange所属体系）的内置对齐逻辑。grid.arrange默认会将所有排布的图形组在整个绘图视口内居中，和PDF设备的独立参数不联动，因此出现参数设置不生效的情况。
• 实现顶部排布、添加标题的全流程操作都可以在PDF输出环节完成，不需要修改原始数据框结构。

布局矩阵设计逻辑 #

要实现两个表格靠页面顶部横向并排的效果，不能直接将页面拆为1行2列的等大网格（这种拆法下内容仍会在垂直方向居中），需要通过布局矩阵制造“上部窄区放表格、下部大区留空”的结构，让表格自然锚定在页面顶部：

• 布局矩阵结构：将20英寸高、15英寸宽的画布划分为2行2列的网格，其中第一行两个单元格分别对应放置两个表格，第二行两个单元格全部划分为同一个空白区域，占满页面下半部分空间。
• 可直接复用的布局矩阵：layout_mat <- matrix(c(1, 2, 3, 3), nrow = 2, ncol = 2, byrow = TRUE)
  矩阵内的数字代表对应绘图位置：数字1的位置放置第一个表格，数字2的位置放置第二个表格，数字3的位置留空。由于3对应的空白区域占两个单元格，会自然将两个表格推到页面最上部。
• 比例参数调整：通过widths设置两列等宽保证并排效果，通过heights设置上部区域高度远小于下部空白高度，即可实现完全靠顶的排布效果。

表格标题实现方式 #

给表格加标题不需要修改原数据框（将标题写入df会破坏表格原有行列结构，后续格式调整成本极高），直接用arrangeGrob()的top参数为每个表格绑定标题文本即可，后续调整字体、颜色、位置都不会影响原表格的数据结构。

# 加载依赖包
library(grid)
library(gridExtra)

# 生成匹配需求的两个示例数据（3行2列、2行3列）
df2 <- data.frame(matrix(1:6, nrow = 3, ncol = 2))
df3 <- data.frame(matrix(letters[1:6], nrow = 2, ncol = 3))

# 为两个表格配置标题，直接绑定在图形对象上
tab2 <- arrangeGrob(
  tableGrob(df2),
  top = "左侧3行2列表格"
)
tab3 <- arrangeGrob(
  tableGrob(df3),
  top = "右侧2行3列表格"
)

# 打开PDF设备
pdf("file.pdf", height = 20, width = 15) # 无需依赖pagecentre参数，布局自主可控

# 初始化布局
layout_mat <- matrix(c(1, 2, 3, 3), nrow = 2, ncol = 2, byrow = TRUE)
layout(
  mat = layout_mat,
  widths = c(0.5, 0.5), # 两列等宽
  heights = c(0.12, 0.88) # 上部12%高度放表格，下部88%留空，实现靠顶效果
)

# 在对应布局位置绘制表格
grid.draw(tab2)
# layout自动切换到第二个格子位置，直接绘制第二个表格即可
grid.draw(tab3)

dev.off()

• 禁止直接用grid.arrange()排布两个grob对象：它的内置逻辑会将所有内容在整个视口居中，抵消layout设置的靠顶效果，必须通过grid.draw()在layout指定的视口内手动绘制图形。
• 调整表格垂直位置只需修改heights参数比例：比如将上部占比从0.12调整为0.15，表格就会离顶部稍远；调整为0.08，表格就会更靠近页面上边缘。

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