# NOT RUN {
# See all color palettes:
seecol() # same as seecol(pal = "all")
# See details of a color palette:
seecol(pal_unikn) # see a specific color palette
# Combining colors or color palettes:
seecol(c(rev(pal_seeblau), pal_seegruen)) # combine color palettes
seecol(c(rev(pal_seeblau), "white", pal_pinky)) # combine color palettes and color names
seecol(c("black", "firebrick", "gold")) # combine color names
# Using n to reduce or extend color palettes:
seecol(n = 3) # viewing reduced ranges of all palettes
seecol(n = 12) # viewing extended ranges of all palettes
seecol(pal_unikn, n = 5,
title = "Reduced version of pal_unikn (n = 5)") # reducing pal_unikn
seecol(pal_seeblau, n = 8,
title = "Extended version of pal_seeblau (n = 8)") # extending pal_seeblau
# Combining and extending color palettes:
seecol(c(rev(pal_seeblau), "white", pal_bordeaux), n = 17,
title = "Diverging custom color palette with 17 colors")
# Defining custom color palettes:
pal_mpg <- c("#007367", "white", "#D0D3D4")
names(pal_mpg) <- c("mpg green", "mpg white", "mpg grey")
# Viewing extended color palette:
seecol(pal_mpg, n = 9, title = "Custom color palette for Max Planck Society")
# Comparing color palettes:
seecol(list(pal_mpg, pal_bordeaux, pal_unikn), n = 5)
## Viewing color palettes from other packages:
# library(RColorBrewer)
# seecol(brewer.pal(name = "RdBu", n = 11)) # viewing "RdBu" palette from RColorBrewer
## Extending color palettes:
# seecol(brewer.pal(name = "RdBu", n = 11), n = 15) # extending palette to 15 colors
# }
Run the code above in your browser using DataLab