如何正确合并三个tableGrob对象且保证布局对齐无错乱？

我需要展示一个带行头和列头的矩阵，已用以下代码生成tableGrob对象m：

主矩阵生成代码 #

m <- tableGrob(sim_df[1:10, 1:10], theme=ttheme_default(
                core=list(fg_params=list(col=fg_cols), bg_params = list(fill=bg_cols, col="black")),
                colhead=list(bg_params=list(fill="white", col="black")), 
                rowhead=list(fg_params=list(fontface="bold"), bg_params=list(fill="white", 
col="black"))))

（效果：10×10的主矩阵，带加粗行头和白色列头）

接下来要给表头添加「名称、年份」这类额外标签，分别生成了行标签tableGrob对象m1和列标签tableGrob对象m2：

行额外标签生成代码 #

# 行标签（10行2列，无列头）
m1 <- tableGrob(df_r[1:10, 1:2], theme=ttheme_default(
                core=list(fg_params=list(col="black"), bg_params = list(fill="white", col="black")),
                colhead=list(fg_params=list(col="white"), bg_params=list(fill="white", col="white"))),
                rows=NULL)

（效果：白色背景的行标签，和主矩阵行数匹配）

列额外标签生成代码 #

# 列标签（2行10列，无行头）
m2 <- tableGrob(df_c[1:2, 1:10], theme=ttheme_default(
                core=list(fg_params=list(col="black"), bg_params = list(fill="white", col="black")),
                rowhead=list(fg_params=list(col="white"), bg_params=list(fill="white", col="white"))),
                cols=NULL)

（效果：白色背景的列标签，和主矩阵列数匹配）

单独合并行标签与主矩阵、列标签与主矩阵都能成功：

# 行标签与主矩阵垂直合并（行标签在左）
r_align <- gtable_combine(m1, m, along=1)

# 列标签与主矩阵水平合并（列标签在上）
c_align <- gtable_combine(m2, m, along=2)

但尝试把带行标签的r_align和列标签m2合并时，出现布局错位、丢失两列的问题：

final_align <- gtable_combine(m2, r_align, along=2)

期望的正确布局：左上角为空白区域，上方是2行10列的列额外标签，左侧是10行2列的行额外标签，中间是主矩阵，四部分完全对齐。

问题根源是m2的列数（10列）和r_align的列数（2+10=12列）不匹配，且缺少左上角的空白填充块。按以下步骤操作即可解决：

步骤1：创建左上角空白块 #

生成一个和m1列数、m2行数一致的空白grob，用来填充左上角空缺：

blank_grob <- tableGrob(matrix("", nrow = nrow(m2), ncol = ncol(m1)), 
                        theme = ttheme_default(core=list(bg_params=list(fill="white", col="white"))))

步骤2：合并空白块与列标签 #

将空白块和m2水平合并，得到完整的顶部行：

top_row <- gtable_combine(blank_grob, m2, along=2)

步骤3：合并顶部行与带行标签的主矩阵 #

将顶部行和r_align垂直合并，得到最终对齐的布局：

final_align <- gtable_combine(top_row, r_align, along=1)

备选方案：用gtable底层函数手动布局 #

如果需要更精细的控制，可以直接用gtable包的底层函数构建布局：

library(gtable)

# 定义整体布局的宽高
widths <- unit.c(gtable_width(m1), gtable_width(m))
heights <- unit.c(gtable_height(m2), gtable_height(m))

# 创建空的gtable容器
final_grob <- gtable(widths = widths, heights = heights)

# 依次填充四个区域：空白块、列标签、行标签、主矩阵
final_grob <- gtable_add_grob(final_grob, blank_grob, t=1, l=1, b=nrow(m2), r=ncol(m1))
final_grob <- gtable_add_grob(final_grob, m2, t=1, l=ncol(m1)+1, b=nrow(m2), r=ncol(m1)+ncol(m))
final_grob <- gtable_add_grob(final_grob, m1, t=nrow(m2)+1, l=1, b=nrow(m2)+nrow(m1), r=ncol(m1))
final_grob <- gtable_add_grob(final_grob, m, t=nrow(m2)+1, l=ncol(m1)+1, b=nrow(m2)+nrow(m1), r=ncol(m1)+ncol(m))

这样就能得到完全符合预期的布局，不会出现错位或列丢失的问题。

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