Quarto制作revealjs幻灯片如何保留gt表格默认样式

不需要把gt表格转成图片，从根源解决样式污染的最简方案是开启gt的内联CSS输出，让gt的默认样式直接绑定在表格元素上，优先级高于revealjs主题的全局样式，完全保留gt原生显示效果。

全局生效配置（推荐） #

在文档首个R代码块中加入一行全局选项设置，后续所有gt表格都会自动保留默认样式，不需要逐个修改：

library(gt)
# 强制gt输出时内联所有默认样式，避免被外部CSS覆盖
options(gt.html.inline_css = TRUE)

设置完成后正常编写gt表格代码即可，不需要额外调整，渲染出来的表格不会再继承revealjs的night主题的字体、边距等样式，和gt官方默认显示效果完全一致，同时保留HTML表格文字可选中、缩放无模糊、加载速度快的优势。

单表格单独控制 #

如果只需要个别表格保留gt原生样式，不需要全局设置，直接用as_raw_html()包裹gt对象并开启内联CSS即可：

# 示例表格
gt(head(mtcars[1:5])) |> 
  as_raw_html(inline_css = TRUE)

图片方案优化（不推荐，仅作补充） #

如果坚持要使用图片输出格式，之前的转ggplot流程完全多余，白边是gtsave()默认留边和ggplot绘图边距共同导致的，简化代码如下即可去掉白边：

library(knitr)
knit_print.gt_tbl <- function(x, ...) {
  tmp_path <- fs::file_temp(ext = "png")
  # expand = 0 去掉gtsave默认预留边距
  gt::gtsave(x, filename = tmp_path, expand = 0, ...)
  # 直接插入图片，不需要转ggplot
  include_graphics(tmp_path)
}
registerS3method("knit_print", "gt_tbl", knit_print.gt_tbl)

问题附原配置与效果参考 #

原Quarto YAML配置：

---
format: 
  revealjs: 
    theme: [night]
    highlight-style: a11y
    transition: fade
    slide-number: true
    chalkboard: true
execute:
  freeze: auto
---

样式异常的表格效果：

原转图片方案的输出效果：

内容的提问来源于stack exchange，提问作者Daniel D. Sjoberg