# NOT RUN {
require("ggplot2")
require("purrr")
require("tibble")
canva_df <- map2_df(canva_palettes, names(canva_palettes),
~ tibble(colors = .x, .id = seq_along(colors), palette = .y))
ggplot(canva_df, aes(y = palette, x = .id, fill = colors)) +
geom_raster() +
scale_fill_identity(guide = FALSE) +
theme_minimal() +
theme(panel.grid = element_blank(),
axis.text.x = element_blank()) +
labs(x = "", y = "")
# }
Run the code above in your browser using DataLab