Nothing
PALS <- c("Accent", "Dark2", "Set1", "Set2", "Set3","Paired", "Pastel1", "Pastel2")
set_palettes <- function(x, cat_cols, ...){
pals <- PALS[seq_along(cat_cols) %% length(PALS) + 1]
names(pals) <- cat_cols
x[cat_cols] <- lapply(cat_cols, function(cat){
p <- x[[cat]]
p + ggplot2::scale_fill_brewer(palette = pals[cat])
})
x
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.