为grid.table绘图添加标题和副标题的间距调整问题

问题原因 #

你的代码存在两处核心问题：

• 行高计算逻辑错误：60mm的padding被计入标题所在行的总高度，且grob默认在单元格内垂直居中，实际间距会被分摊到标题上下，无法达到预期
• 间距分配错误：你要求的60mm是标题到表格顶部的总间距，需要拆分出2mm作为标题和副标题的间隔，剩余部分分配给副标题到表格的间隔

修复后代码 #

library(gridExtra)
library(grid)
library(gtable)
d <- head(iris)
table <- tableGrob(d)

title <- textGrob("Title",gp=gpar(fontsize=50))
subtitle <- textGrob("subtitle", x=0, hjust=0,
                     gp=gpar( fontface="italic"))

# 间距拆分
title_sub_gap <- unit(2, "mm")
# 副标题底部到表格顶部的间距 = 总间距60mm - 标题副标题间隔 - 副标题自身高度
sub_table_gap <- unit(60, "mm") - title_sub_gap - grobHeight(subtitle)

# 按从下到上顺序插入行（pos=0代表插入到当前表格最顶部）
# 插入副标题到表格的间距行
table <- gtable_add_rows(table, heights = sub_table_gap, pos = 0)
# 插入副标题所在行
table <- gtable_add_rows(table, heights = grobHeight(subtitle), pos = 0)
# 插入标题到副标题的间距行
table <- gtable_add_rows(table, heights = title_sub_gap, pos = 0)
# 插入标题所在行
table <- gtable_add_rows(table, heights = grobHeight(title), pos = 0)

# 添加文本，指定vjust=0底部对齐，避免居中导致的间距偏移
table <- gtable_add_grob(table, list(title, subtitle),
                         t=c(1, 3), l=c(1,1), 
                         r=ncol(table),
                         vjust = 0)
# 调整png高度避免顶部内容被截断，可根据实际需求调整
png('tmp.png', width = 480, height = 600, bg = "#FFECDB")
grid.newpage()
grid.draw(table)
dev.off()

关键修改说明 #

1. 拆分间距逻辑：将60mm总间距拆分为标题副标题间隔、副标题高度、副标题到表格间隔三部分，完全匹配需求
2. 调整插入行顺序：按从下到上的顺序插入行，保证各模块位置正确
3. 指定文本对齐方式：添加vjust=0参数让文本在单元格内底部对齐，消除居中带来的间距误差
4. 调整输出图片高度：避免标题过高被截断，可根据实际显示效果调整高度参数

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