如何在R中使用Knitr为DataFrame添加条件着色并导出PDF？

以下是结合knitr与RMarkdown实现需求的完整方案，包含可直接运行的RMarkdown代码及关键步骤说明：

完整RMarkdown代码 #

---
title: "带条件着色的PDF表格"
output: 
  pdf_document:
    latex_engine: xelatex
header-includes:
  - \usepackage{xcolor}
  - \usepackage{booktabs}
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)
library(tidyverse)
library(knitr)
library(kableExtra)

# 生成目标数据框
Var = c("abcd my name is helen efghi gklmno pqrstvw_1","abcd efghi gklmno my name is john pqrstvw_2","abcd efghi gklmno my name is fey pqrstvw_3",
        "abcd my name is george efghi gklmno pqrstvw_4","abcd efghi my name is mary gklmno pqrstvw_5","abcd efghi gklmno my name is nick pqrstvw_6",
        "abcd my name is daisy efghi gklmno pqrstvw_7")
val_1 = c(2,3.1,4,3.4,5,4,2.3)
val_2 = c(1.8,3.3,4,3.4,5,4,2.3)
val_3 = c(5,4.3,4,3.4,5,4,2.3)
val_4 = c(4,3.2,4,3.4,5,4,3)
df = tibble(Var,val_1,val_2,val_3,val_4)

# 生成带条件着色的表格
df %>%
  mutate(across(starts_with("val_"), ~cell_spec(., format = "latex",
                                                background = "black",
                                                color = case_when(
                                                  . < 3 ~ "yellow",
                                                  . >=3 & . <4 ~ "red",
                                                  . >4.5 ~ "blue",
                                                  TRUE ~ "white"
                                                )))) %>%
  kable(format = "latex", booktabs = TRUE, escape = FALSE,
        col.names = c("Var", "val_1", "val_2", "val_3", "val_4")) %>%
  kable_styling(full_width = FALSE) %>%
  row_spec(0, background = "gray", color = "black")

---

## 关键步骤说明
1. **LaTeX依赖配置**
   在YAML头中引入`xcolor`包以支持颜色渲染，指定`xelatex`引擎确保颜色正常显示；`booktabs`包用于生成更美观的表格线。

2. **数值列条件着色**
   - 使用`mutate(across(starts_with("val_"), ...))`批量处理所有数值列
   - `cell_spec()`函数为每个数值单元格设置黑色背景，并按规则设置文字颜色：
     - 数值<3 → 黄色文字
     - 3≤数值<4 → 红色文字
     - 数值>4.5 → 蓝色文字
     - 4≤数值≤4.5 → 白色文字（保证黑色背景下的可读性）

3. **表头样式设置**
   通过`row_spec(0, ...)`将第0行（表头）的背景设为灰色，文字保持黑色。

4. **表格渲染**
   - `kable()`生成LaTeX格式表格，`escape=FALSE`确保着色代码被LaTeX正确解析
   - `kable_styling()`调整表格宽度以适配内容

内容的提问来源于stack exchange，提问作者Homer Jay Simpson