Comment la couleur des cellules spécifiques dans un bloc de Données / Table en R?

Ma réponse ci-dessous est vraiment stupide.. Ici est la bonne façon:

Cette fonctionnalité est intégrée à htmlTable via le css.cell argument:

La css.cell élément vous permet d'ajouter d'éventuelles style CSS à vos cellules de tableau. Si vous fournissez un vecteur le vecteur c'est assummed que les styles doit être répété tout au long de l'colonnes. Si vous fournissez une matrice de même taille que votre argument x. Si vous avez ncol(x) + 1 la première ligne correspondent à la rowname style. En conséquence, si la taille est nrow(x) + 1 il est assummed que la première ligne est la ligne d'en-tête.

Donc, Fondamentalement, vous avez juste besoin de définir une matrice de styles pour chaque cellule:

x <- head(cars)

## indices defining where the styles go
where <- rbind(c(2,2), c(2,1), c(5,2))
style <- c('background-color: red; color: white;',
           'border: solid 1px;',
           'font-weight: 900; color: blue;')

css.cell <- matrix('', nrow(x), ncol(x))
css.cell[where] <- style

#      [,1]                 [,2]                                  
# [1,] ""                   ""                                    
# [2,] "border: solid 1px;" "background-color: red; color: white;"
# [3,] ""                   ""                                    
# [4,] ""                   ""                                    
# [5,] ""                   "font-weight: 900; color: blue;"      
# [6,] ""                   ""                                

htmlTable(head(cars), css.cell = css.cell)

Il est difficile de dire, à moins que vous échangez en arrière et en avant, mais l'espacement dans ce tableau et celui, similaire, ci-dessous est légèrement différente. Le inject_div exemple regarde d'un peu plus centré.

---

Un peu en retard, mais @CyrusMohammadian fait un commentaire sur mon autre réponse, et puisque le commentaire/question est la même que celle-ci, je vais ajouter ici, la réponse plutôt que d'éditer ma réponse qui a été (légèrement) différente de la question.

Tables peuvent être complexes, et chacun a des caractéristiques différentes qu'ils veulent. Je ne pense pas que c'est possible pour Max d'avoir des solutions intégrées pour tous.

Par conséquent, le moyen le plus facile, je pense, serait d' (hackily) injecter du code html/css dans votre tableau (vous pourriez probablement aussi le faire après l'exécution de htmlTable, c'est à dire directement dans le code html, mais c'est plus facile je pense):

#' Inject div
#' 
#' Inject an html division tag with style attribute.
#' 
#' @param x a matrix or data frame
#' @param where an \code{nx2} matrix of row and column indices or vector (of
#' the form c(row, col, row, col, ...)) specifying which cells to select
#' @param style vector of character string(s) applied to each cell, recycled
#' if necessary

inject_div <- function(x, where, style = 'background-color: lightgrey; border: solid 1px') {
  if (!all(sapply(style, nzchar)))
    return(x)
  where <- matrix(where, ncol = 2L, byrow = !is.matrix(where))
  style <- rep_len(style, nrow(where))
  if (length(where) > 0)
    x[where] <- sprintf('<div style=\'%s\'>%s</div>',
                      gsub(';*$', ';', style), x[where])
  x
}

library('htmlTable')
htmlTable(inject_div(head(cars), cbind(2,2)))

htmlTable(inject_div(head(cars), where = c(2,2,2,1,5,2),
                     ## equivalently
                     # where = rbind(c(2,2), c(2,1), c(5,2))
                     style = c('background-color: red; color: white;',
                               'border: solid 1px;',
                               'font-weight: 900; color: blue;')))

OriginalL'auteur rawr