如何在R Quarto HTML文档中用xtable格式化表格单元格

我创建了基于knitr引擎的R-Quarto HTML文档，尝试用dplyr将mtcars数据集中列均值以上的单元格设为绿色填充，但底层表格渲染器xtable无法识别我的格式化命令。试过\cellcolor、\colorbox和\cellfill均未正常生效；添加了其他帖子推荐的sanitize.text.function = function(x){x}也没用，且找不到说明可用格式化选项的官方文档，上述三个选项均来自其他帖子，请问我遗漏了什么？

可复现代码 #

文档头部 #

---
title: "Test"
format: html
server: shiny
---

初始化代码 #

#| context: setup
#| output: false
#| echo: false

# Include packages
install_if_not_found <- function(package_name){
  if (!package_name %in% rownames(installed.packages()))
    install.packages(package_name, repos = "http://cran.us.r-project.org")
  library(package_name, character.only = TRUE)
}

packages <- c("dplyr")
sapply(packages, FUN=install_if_not_found)

服务器端表格渲染代码 #

#| context: server
#| echo: true
output$example_table <- renderTable(expr={
  above_average_format_rule <- "\\cellcolor{green}{"
  suffix <- "}"
  
  mtcars %>% 
    mutate(across(
      mpg:qsec,
      ~ case_when(
        .x > mean(.x) ~ paste0(above_average_format_rule, .x, suffix),
        .default = paste0(.x)
      )
    )) %>% 
    slice_head(n=5) %>% 
    select(mpg:drat)
  
}, striped = TRUE,
   align = "c",
   caption = "MT-Cars, Supposedly Formatted",
   size = "\\small",
   caption.placement = "top",
   sanitize.text.function = function(x){x}
)

输出展示代码 #

#| panel: fill
tableOutput("example_table")

当前输出效果 #

问题根源 #

你用的\cellcolor、\colorbox是LaTeX语法，但你的文档输出格式是HTML，renderTable默认调用的xtable引擎在HTML模式下不会解析LaTeX格式化命令，只会把这些代码当成普通文本显示，这就是命令不生效的核心原因。

方案1：用HTML内联样式替代LaTeX命令 #

把LaTeX格式标签换成HTML的<span>样式标签，让xtable在HTML输出中识别并渲染背景色：

修改服务器端代码如下：

#| context: server
#| echo: true
output$example_table <- renderTable(expr={
  # 替换成HTML背景色样式标签
  above_average_format_rule <- '<span style="background-color: lightgreen;">'
  suffix <- '</span>'
  
  mtcars %>% 
    mutate(across(
      mpg:drat, # 限定目标列范围
      ~ case_when(
        .x > mean(.x, na.rm = TRUE) ~ paste0(above_average_format_rule, .x, suffix),
        .default = as.character(.x)
      )
    )) %>% 
    slice_head(n=5)
  
}, striped = TRUE,
   align = "c",
   caption = "MT-Cars, Formatted",
   size = "\\small",
   caption.placement = "top",
   sanitize.text.function = function(x){x} # 必须保留，否则HTML标签会被转义
)

方案2：用DT包实现更灵活的条件格式化（推荐） #

DT包专门用于HTML交互式表格，支持原生的条件格式化，不需要手动拼接标签，代码更简洁且功能更丰富：

修改初始化代码，添加DT包 #

#| context: setup
#| output: false
#| echo: false

install_if_not_found <- function(package_name){
  if (!package_name %in% rownames(installed.packages()))
    install.packages(package_name, repos = "http://cran.us.r-project.org")
  library(package_name, character.only = TRUE)
}

packages <- c("dplyr", "DT") # 添加DT包
sapply(packages, FUN=install_if_not_found)

替换服务器端渲染代码 #

#| context: server
#| echo: true
output$example_table <- renderDT(expr={
  mtcars %>% 
    slice_head(n=5) %>% 
    select(mpg:drat)
}, 
options = list(pageLength = 5),
caption = "MT-Cars, Formatted with DT",
# 定义条件格式化规则
formatStyle(
  columns = colnames(mtcars %>% select(mpg:drat)),
  backgroundColor = styleInterval(
    lapply(mtcars %>% select(mpg:drat), mean, na.rm=TRUE),
    c("white", "lightgreen")
  )
))

替换输出展示代码 #

#| panel: fill
DTOutput("example_table")

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