R: Farbzellen in einer Tabelle basierend auf dem angegebenen Wert

Question

Ich habe eine Tabelle mit den Nummern 1-10. Es sieht wie folgt aus:

Jetzt habe ich die Zellen mit einer anderen Farbe für jede ganze Zahl füllen wollen. Zum Beispiel sollten alle Zellen mit dem Wert 1 rot sein, 2 schwarz .. und so weiter. Haben Sie Vorschläge, wie Sie dies erreichen können? Vielen Dank.

Answer 1

Es gibt Pakete, die dies tun. Das Paket, das momentan die direkteste Schnittstelle hat, ist wahrscheinlich condformat mit der condformat::rule_file_discrete Funktion. Ich habe leider kein funktionierendes Beispiel, da ich condformatrJava benötige, was mit meinem System nicht gut auskommt.

Das pixiedust Paket (vollständige Offenlegung, ich bin der Autor) kann dies erreichen, aber es ist nicht sehr direkt im Moment.

library(pixiedust) 
library(scales) 
library(magrittr) 

# Make the table (as a matrix, but a data frame would work as well) 
set.seed(pi) 
X <- matrix(sample(1:10, 
        size = 100, 
        replace = TRUE), 
      nrow = 10) 

# Define 10 colors 
background <- hue_pal()(10) %>% 
    setNames(1:10) 

show_col(background) 


# Convert X to a dust object 
X_dust <- dust(X) 

# Apply the background colors 
for (i in sort(unique(as.vector(X)))){ 
    X_dust <- 
    sprinkle(X_dust, 
      rows = X_dust$body$row[X_dust$body$value == i], 
      cols = X_dust$body$col[X_dust$body$value == i], 
      bg = background[i], 
      fixed = TRUE) 
} 

# Print the HTML code 
X_dust %>% 
    sprinkle_print_method("html") 

Ich bin derzeit Code zu entwickeln, dies zu tun mit nur wenigen Zeilen Code, aber das Feature ist noch nicht ganz bereit für die Freigabe.