scale_colour_Publication <-
function(...){
suppressMessages(library(scales))
discrete_scale("colour","Publication",manual_pal(values = c("#386cb0","#fdb462","#7fc97f","#ef3b2c","#662506","#a6cee3","#fb9a99","#984ea3","#ffff33")), ...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.