customColors <- function(n) {
cols <-
c(
"#89C5DA",
"#DA5724",
"#74D944",
"#CE50CA",
"#3F4921",
"#C0717C",
"#CBD588",
"#5F7FC7",
"#673770",
"#D3D93E",
"#38333E",
"#508578",
"#D7C1B1",
"#689030",
"#AD6F3B",
"#CD9BCD",
"#D14285",
"#6DDE88",
"#652926",
"#7FDCC0",
"#C84248",
"#8569D5",
"#5E738F",
"#D1A33D",
"#8A7C64",
"#599861"
)
return(cols[1:n])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.