如何使用tableGrob合并表格表头单元格？附示例代码

要实现表头单元格跨列合并，可通过调整gtable的布局完成，以下是修改后的完整代码：

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

# 生成表格主体
tab <- tableGrob(mtcars[1:3, 1:3], rows = NULL)
# 创建自定义表头：仅保留表头文本，无需数据内容
header <- tableGrob(t(data.frame(head1 = "", head2 = "")), 
                    rows = NULL, cols = c("head1", "head2"),
                    theme = ttheme_minimal())

# 纵向合并表头与表格主体
jn <- gtable_combine(header, tab, along = 1)

# 调整表头单元格的跨列范围
# 让"head1"表头单元格覆盖第1-2列
jn$layout[jn$layout$name == "head1", c("l", "r")] <- c(1, 2)
# 让"head2"表头单元格固定在第3列
jn$layout[jn$layout$name == "head2", c("l", "r")] <- c(3, 3)

# 统一所有列的宽度，保证视觉一致性
jn$widths <- rep(max(jn$widths), length(jn$widths))

# 绘制最终表格
grid.newpage()
grid.draw(jn)

核心操作说明： #

• 依赖包准备：必须加载grid、gridExtra和gtable，这三个包是实现表格布局调整的基础。
• 表头重构：创建仅包含目标表头文本的极简表格，避免原示例中使用数据行带来的多余内容干扰。
• 跨列设置：通过修改gtable布局的l（左起始列）和r（右结束列）参数，实现表头单元格的跨列覆盖，这是合并表头的关键。
• 列宽统一：让所有列宽度一致，确保表格视觉整齐。

效果对比：

• 当前未合并效果：
• 预期合并效果：

该方法参考了Stack Exchange上关于合并tableGrob表头单元格的讨论。

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