Colour palettes based on the MCRI branding.
Most of the code is taken from Karthik Ram's wesanderson
palette
devtools::install_github("lazappi/mcriPalettes")
library("mcriPalettes")
# See all palettes
pal.names <- names(mcri.palettes)
pal.names
## [1] "symbol" "greys" "themes" "themesMid"
## [5] "themesLite" "themesPaired" "themesTripled" "blues"
## [9] "bluesMid" "bluesLite" "bluesPaired" "bluesTripled"
## [13] "logo"
library("ggplot2")
gg <- ggplot(iris, aes(Sepal.Length, Sepal.Width, color = Species)) +
geom_point(size = 3)
mcriPalette("symbol")
gg + scale_color_manual(values = mcriPalette("symbol"))
mcriPalette("greys")
gg + scale_color_manual(values = mcriPalette("greys"))
mcriPalette("themes")
gg + scale_color_manual(values = mcriPalette("themes"))
mcriPalette("themesMid")
gg + scale_color_manual(values = mcriPalette("themesMid"))
mcriPalette("themesLite")
gg + scale_color_manual(values = mcriPalette("themesLite"))
mcriPalette("themesPaired")
gg + scale_color_manual(values = mcriPalette("themesPaired"))
mcriPalette("themesTripled")
gg + scale_color_manual(values = mcriPalette("themesTripled"))
mcriPalette("blues")
gg + scale_color_manual(values = mcriPalette("blues"))
mcriPalette("bluesMid")
gg + scale_color_manual(values = mcriPalette("bluesMid"))
mcriPalette("bluesLite")
gg + scale_color_manual(values = mcriPalette("bluesLite"))
mcriPalette("bluesPaired")
gg + scale_color_manual(values = mcriPalette("bluesPaired"))
mcriPalette("bluesTripled")
gg + scale_color_manual(values = mcriPalette("bluesTripled"))
mcriPalette("logo")
gg + scale_color_manual(values = mcriPalette("logo"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.