#' @title Theme to be used in journal publications
#' @description Theme for use in journals
#' @return NA
#' @export
scale_fill_Publication <- function(...){
library(scales)
discrete_scale("fill","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.