R - 在单个页面输出中组合两个 gt 对象

Question

在我们的生产环境中，我们使用 gtsummary 包对大数据进行汇总，然后转换为 gt 对象添加标题和副标题。生成的表格的视觉质量是无与伦比的。

但是，在许多情况下，我们需要此汇总表以及随附的数据表，其中包含少数异常值或类似细节的详细信息，以阐明整体情况。从某种意义上说，这个伴随数据是一个基于表格的脚注，或澄清支持信息。

因为我们发布了大量这些摘要，所以我正在寻找一种方法将它们放在同一个发布的单页 pdf 中。

我已尝试使用以下方法解决此问题：

1. gtsummary 中的 tbl_merge、tbl_stack：gtsummary 表，而不是 gt 对象，需要共享行或列。
2. gridExtra：gt 对象无法转换为 grobs
3. pdf() 或打印到设备：gtsave 或 print(gt) 不输出到设备。

有谁知道是否有办法将一个表格作为 png 对象嵌入到另一个表格的脚注中？还是有其他选择？

Answer 1

使用gt 包找到了一个非常干净的解决方案。我们需要避免将表格转换为图像，这会剥夺包括机器搜索在内的许多功能的内容。

解决方法：使用as_raw_html()将补充表转成html，然后使用tab_source_note(source_note = html(suppTable)将source_note插入到主表中。

这会保留所有格式，包括每个表格的标题和脚注。