Как может xxtable делать окраску ячеек

Question

У меня есть эта таблица в файле .RMD, и я хотел бы сделать в PDF с условным форматированием. В настоящее время я использую pandoc. Как это можно сделать с помощью xxtable?

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

Вы можете обернуть соответствующие записи в таблице n латексным кодом (from here), а затем дезинфицировать результаты xtable.

Пример:

--- 
header-includes: 
    - \usepackage{xcolor, colortbl} 
output: 
    pdf_document 
--- 

```{r, results="asis"} 

library(xtable) 
# Your data 
tab = data.frame(category = c("A","B","C"), groupA = c(.2,.3,.5), groupB= c(.6,.7,.9)) 

# Function to cut your data, and assign colour to each range 
f <- function(x) cut(x, c(0, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, Inf), 
         labels=c("green", "red", "blue", "orange", "yellow", "purple", "brown", "white"), 
         include.lowest = FALSE, right = TRUE) 

# Apply function to columns: this overwrites your data 
tab[c("groupA", "groupB")] <- lapply(tab[c("groupA", "groupB")], function(x) 
              paste0("\\cellcolor{", f(x), "}", x)) 
# Sanitise output 
print(xtable(tab), sanitize.text.function = identity) 
``` 

который производит

Answer 2

Вы можете посмотреть на formattable пакет

например

library(formattable) 

formattable(table, 
      list(groupA = color_tile("white", "orange")) 
      ) 

https://github.com/renkun-ken/formattable