如何在Rmarkdown中设置kableExtra表格的默认样式？

目前kableExtra并没有官方提供的专属全局配置选项，来让所有表格自动应用striped、hover、condensed、responsive这类指定样式。

不过你可以借助knitr的扩展能力实现类似效果，比单纯写自定义辅助函数更灵活：

方法1：使用knitr输出钩子自动处理 #

通过设置knitr的输出钩子，对所有生成的HTML表格自动应用kable_styling样式：

knitr::knit_hooks$set(
  output = function(x, options) {
    # 识别kable生成的HTML表格并应用默认样式
    if (grepl("^<table", x) && isTRUE(options$auto_kable_style)) {
      x <- kableExtra::kable_styling(
        x,
        striped = TRUE,
        hover = TRUE,
        condensed = TRUE,
        responsive = TRUE
      )
    }
    x
  }
)

使用时只需在代码块选项中添加auto_kable_style=TRUE，就能自动应用样式。

方法2：重写kable函数封装默认样式 #

直接封装一个带默认样式的kable函数，替代原生kable调用：

my_kable <- function(data, ..., 
                     striped = TRUE, hover = TRUE, 
                     condensed = TRUE, responsive = TRUE) {
  kableExtra::kable(data, ...) %>%
    kableExtra::kable_styling(
      striped = striped,
      hover = hover,
      condensed = condensed,
      responsive = responsive
    )
}

之后所有表格用my_kable()替代kable()即可，还能通过参数临时覆盖默认样式。

这两种方式都是基于knitr和kableExtra的原生扩展能力实现，属于官方认可的自定义方案，能有效避免重复编写样式代码。

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