pandoc表的颜色单元格

Question

我有这张表格，我想在 RMD 文件中使用 PANDOC 以 PDF 格式呈现

 table = data.frame(category = c("A","B","C"), groupA = c(.2,.3,.5), groupB= c(.6,.7,.9))
 table
 pandoc.table(table,split.table = Inf,keep.line.breaks = TRUE)

----------------------------
 category   groupA   groupB 
---------- -------- --------
    A        0.2      0.6   

    B        0.3      0.7   

    C        0.5      0.9   
----------------------------

如何使用以下条件格式为“groupA”和“groupB”列的单元格着色：

>0 and <= .2    = "green"
>.2 and <= .3    = "red"
>.3 and <= .4    = "blue"
>.4 and <= .5     = "orange"
>.5 and <= .6     = "yellow"
>.6 and <= .7     = "black"
>.7 and <= .8     = "brown"
>.8  = "white"

Answer 1

如果您要渲染为 PDF，您（或其他人的函数）必须使用 LaTeX 格式化您的表格。虽然有很多有用的包和功能可以为您完成所有工作（knitr::kable、xtable、stargazer），但如果您需要细粒度的控制，您可能需要自己编辑 LaTeX，至少在部分。

一个相当轻松的选项是Hmisc::latex，它将从 data.frame 创建表，并有一个参数（在许多参数中）cellTexCmds 允许通过与数据相似维度的矩阵传递单个单元格的样式。框架。将file 参数设置为''，因此它不保存文件，where = '!htbp' 使表格出现在文档中的正确位置。要设置单元格背景颜色，您需要 xcolor 或 colortbl LaTeX 包，它们可以在 YAML frontmatter 中加载。

要消除 LaTeX 注释，捕获输出、子集和打印，或者只使用 .Rnw 而不是 .Rmd。

---
title: "Conditional Formatting"
header-includes:
   - \usepackage[table]{xcolor}
output:
  pdf_document: default
---


```{r}
df <- data.frame(category = c("A","B","C"), 
                 groupA = c(.2,.3,.5), 
                 groupB= c(.6,.7,.9))

df.format = matrix('', nrow = nrow(df), ncol = ncol(df))

df.format[, -1] <- paste0('cellcolor{', 
                          sapply(df[-1], function(x){
                              cut(x, breaks = c(0, seq(.2, .8, by = .1), 1), 
                                  labels = c('green', 'red', 'blue', 'orange', 
                                             'yellow', 'black', 'brown', 'white'))}),
                          '}')

df.format
```

```{r table, results='asis'}
cat(capture.output(
    Hmisc::latex(df, file = '', cellTexCmds = df.format, where = "!htbp")
    )[-1])
```