R Paquet formatable - Modification des couleurs par rang Valeur dans la colonne contenant le vecteur de caractères

Question

J'ai ce data.frame et je voudrais utiliser un package formatable pour attribuer une couleur différente à chaque nom, par lequel "Bob" = "Bleu", " Ashley "=" Rouge "etc. Des idées? Je commence juste avec la programmation r, mais je suis particulièrement aux prises avec un paquetage formatable car il y a très peu d'exemples, et la documentation est axée sur les valeurs numériques.

df <- data.frame(
    id = 1:10, 
    name = c("Bob", "Ashley", "James", "David", "Jenny", 
      "Hans", "Leo", "John", "Emily", "Lee"), 
    age = c(48, 47, 40, 28, 29, 29, 27, 27, 31, 30), 
    test1_score = c(18.9, 19.5, 19.6, 12.9, 11.1, 7.3, 4.3, 3.9, 2.5, 1.6), 
    test2_score = c(9.1, 9.1, 9.2, 11.1, 13.9, 14.5, 19.2, 19.3, 19.1, 18.8), 
    stringsAsFactors = FALSE) 

J'obtenu à ce jour, avec une valeur, mais strugling avec le reste:

name = formatter("span", style = x ~ ifelse(x == "Bob", 
     style("background-color" = "blue", display = "block", "border-radius" = "4px", font.weight = "bold"), NA)))) 

comment puis-je ajouter d'autres arguments de cette colonne comme vous pouvez le faire avec FormatStyle dans le paquet DT.

%>% 
    formatStyle(
    'name', 
    backgroundColor = styleEqual(c('Bob', 'Ashley'), c('blue', 'red')) 

Answer 1

Vous pouvez définir le style de la ligne complète au lieu d'une seule cellule en utilisant l'argument target = 'row' dans formatStyle().

Voici le morceau de code .RMD:

```{r data} 
library(formattable) 
library(DT) 
df <- data.frame(
    id = 1:10, 
    name = c("Bob", "Ashley", "James", "David", "Jenny", 
      "Hans", "Leo", "John", "Emily", "Lee"), 
    age = c(48, 47, 40, 28, 29, 29, 27, 27, 31, 30), 
    test1_score = c(18.9, 19.5, 19.6, 12.9, 11.1, 7.3, 4.3, 3.9, 2.5, 1.6), 
    test2_score = c(9.1, 9.1, 9.2, 11.1, 13.9, 14.5, 19.2, 19.3, 19.1, 18.8), 
    stringsAsFactors = FALSE) 
datatable(df) %>% formatStyle(
    'name', 
    target = 'row', 
    backgroundColor = styleEqual(c("Bob", "Ashley"), c('blue', 'red')) 
) 
``` 

Le tableau ressemble à ceci: