R - Evidenziazione di riga condizionale nella tabella HTML creata usando xtable o kable

Question

Sono praticamente un principiante nella formattazione programmatica dell'output R, ma ho una conoscenza di base della capacità di knitr, xtable, Markdown e Pandoc per la conversione di uno formato di marcatura a un altro. Quello che voglio fare è scrivere un dataframe R df in una tabella HTML e applicare un colore particolare a ciascuna riga che soddisfa una condizione (ad es., df$outcome == 1). Tuttavia, non sono sicuro di quale pacchetto possa ottenere questo risultato in modo semplice ed efficiente, ma sfogliando alcuni thread di formattazione della tabella (xtable thread 1, xtable thread 2, kable documentation 1), ho notato che kable e xtable potrebbero essere in grado di realizzare il mio desiderato risultato.

Per chiarire, ecco il mio esempio riproducibile (usando xtable, ma sono interessati a una risposta utilizzando kable o un altro pacchetto pure):

set.seed(123) 
df <- data.frame(id  = sample(1:100, 20, replace = TRUE), 
       inputval = sample(seq(0, 1, by=0.01), 20, replace = TRUE), 
       outcome = sample(1:4, 20, replace = TRUE)) 

library(xtable) 
dfxt <- xtable(df) 

knit2html(input  = "~/rowcolor_ex.Rmd", 
      output  = OUTPUTHERE 
      stylesheet = "STYLESHEET.css") 

con knit2html riferimento il file denominato "rowcolor_ex.Rmd", illustrato di seguito:

```{r,echo=FALSE,results='asis',warning=FALSE,message=FALSE} 
print(dfxt, 
     type = "html", 
     include.rownames = FALSE,) 
``` 

ho capito che se voglio usare xtable, mi piacerebbe includere uno o più argomenti che seguono il print(dfxt, parte della chiamata di funzione nella 01.237.documento e this thread mostra l'argomento add.to.row che ha senso per type = "latex", ma non è chiaro come il codice cambierebbe per l'output HTML. Inoltre, non sono sicuro che il riferimento a un foglio di stile CSS in knit2html annullerebbe la formattazione della tabella HTML.

Answer 1

Ecco una soluzione che utilizza Gmisc::htmlTable

set.seed(123) 
df <- data.frame(id  = sample(1:100, 20, replace = TRUE), 
       inputval = sample(seq(0, 1, by=0.01), 20, replace = TRUE), 
       outcome = sample(1:4, 20, replace = TRUE)) 

cols <- with(df, ifelse(outcome == 1, 'magenta', 'white')) 

library(Gmisc) 
htmlTable(as.matrix(df), altcol = cols, 
      rgroup = '', n.rgroup = rep(1, length(cols))) 

EDIT

Da htmlTable è stata successivamente spostata nel pacchetto, htmlTable, e non più in Gmisc è> = 1.0, il nuovo modo per fare questo sarebbe

library('htmlTable') 
htmlTable(as.matrix(df), col.rgroup = cols) 

che dà anche:

e il tuo codice di riduzione dei prezzi sarebbe semplicemente

```{r, results='asis'} 
htmlTable(as.matrix(df), altcol = cols, 
      rgroup = '', n.rgroup = rep(1, length(cols))) 
``` 

E il mio .RMD sarà simile:

--- 
output: 
    html_document: 
    css: ~/knitr.css 
--- 

```{r, results='asis', message=FALSE} 
set.seed(123) 
df <- data.frame(id  = sample(1:100, 20, replace = TRUE), 
       inputval = sample(seq(0, 1, by=0.01), 20, replace = TRUE), 
       outcome = sample(1:4, 20, replace = TRUE)) 

cols <- with(df, ifelse(outcome == 1, 'magenta', 'white')) 

library(Gmisc) 
htmlTable(as.matrix(df), altcol = cols, 
      rgroup = '', n.rgroup = rep(1, length(cols))) 
```