ht <- as_hux(matrix(runif(20), 5, 4))
map_background_color(ht,
by_function(grey))
if (requireNamespace("scales")) {
map_text_color(ht, by_function(
scales::seq_gradient_pal()
))
}
Run the code above in your browser using DataLab