mpg
unikn::seecol(mpg, main = "Colors of the Max Planck Society") # view color palette
unikn::demopal(mpg, type = 1, main = "Using the MPG colors")
# Extended version:
mpg_11 <- unikn::usecol(c(mpg, "black"), n = 11)
unikn::demopal(mpg_11, type = 4, seed = 1, main = "An extended MPG palette")
Run the code above in your browser using DataLab