Awesome

Manu <img src="man/figures/LOGO.jpg" align="right" width="180"/>

New Zealand is home to a great number of native bird species, a majority being endemic to the islands. Many of these species are notable for their bright and beautiful plumage.

Using photos of birds native to New Zealand, this R package contains a selection of colour palettes constructed by extracting distinct colours characteristic of these birds.

This package was the idea of Dr Tara McAllister (@taramcallister4) and is implemented like the<br/> wesanderson colour palette package, created by Karthik Ram (@_inundata).

Installation

This package is hosted on Github and can install it using the devtools (>= v2.3.2) package:

# install.packages("devtools")
devtools::install_github("G-Thomson/Manu")

(Note: If this doesn't work, update devtools as Github recently changed the term it uses for the primary version of a source code repository)

Usage

The colour palettes are stored as a list named manu_palettes. Thus you can see a list of the available palettes like so:

library(Manu)
names(manu_palettes)
 [1] "Hihi"         "Hoiho"        "Kaka"         "Kakapo"       "Kakariki"     "Kea"          "Kereru"       "Kereru_orig"  "Kiwi"         "Kokako"    
[11] "Korimako"     "Korora"       "Kotare"       "Putangitangi" "Takahe"       "Takapu"       "Titipounamu"  "Tui"          "Pepetuna"     "Pohutukawa"
[21] "Gloomy_Nudi" 

A helper function get_pal() returns the desited colour palette as a vector: For example:

get_pal("Hihi")
[1] "#070604" "#F9E211" "#797A87" "#A8ACAD" "#D6CBB5"

There is also a helper function called print_pal() which displays the palette in the graphics window.

hoiho <- get_pal("Hoiho")
print_pal(hoiho)

Since the get_pal() function returns the colour palettes as a character vector they can easily be used in the graphics package of your choice. Here are examples in both base R and ggplot2.

# Base R implementation
plot(mtcars$disp, mtcars$hp, col = get_pal("Hoiho")[factor(mtcars$carb)], pch = 19, cex = 3 )

# ggplot2 implementation
library(ggplot2)
ggplot(mtcars, aes(disp, hp, colour = factor(carb))) +
   geom_point(size = 3) +
   scale_colour_manual(values = get_pal("Hoiho"))

Hihi - Notiomystis cincta - Stichbird

c("#070604", "#F9E211", "#797A87", "#A8ACAD", "#D6CBB5")

Hoiho - Megadyptes antipodes - Yellow-eyed penguin

c("#CABEE9", "#7C7189", "#FAE093", "#D04E59", "#BC8E7D", "#2F3D70")

Kākā - Nestor meridionalis

c("#A7473A", "#4B5F6C", "#B09B37", "#955F47", "#A8B9CB")

Kākāpō - Strigops habroptilus

c("#7D9D33", "#CED38C", "#DCC949", "#BCA888", "#CD8862", "#775B24")

Kākāriki - Cyanoramphus Spp.

c("#44781E", "#A1B654", "#2C3B75", "#B8321A", "#565052")

Kea - Nestor notabilis

c("#6C803A", "#7B5C34", "#AB7C47", "#CCAE42", "#D73202",  "#272318", "#D3CDBF")

Kererū - Hemiphaga novaeseelandiae - NZ wood pigeon

c("#325756", "#7d9fc2", "#C582B2", "#51806a", "#4d5f8e", "#A092B7")

The original mock-up of a NZ bird colour palettes posted on Twitter included a Kererū palette which many said they liked. It was ultimately deemed to have too much green in it, but it remains in the package as "Kereru_orig" if people still wish to use it.

c("#5a8b8a", "#337166", "#2C5F44", "#c47c94", "#43394C")

Kiwi - Apteryx mantelli - North Island brown kiwi

c("#3e2926", "#634c54", "#8b7162", "#a9a196", "#cfae9f", "#d3bac0")

Kōkako - Callaeas wilsoni

c("#121f25", "#0042d6", "#5e89ab", "#b9d5eb", "#746455")

Korimako - Anthornis melanura - NZ bellbird

c("#757b16","#4F651D",  "#798C8B", "#2F638F", "#091A26", "#490B0A")

Kororā - Eudyptula minor - Little blue penguin

c("#85BEDC",  "#3A383F", "#A6B0BB", "#CCBBCD", "#647588")

Kōtare - Todiramphus sanctus - Kingfisher

c("#214d65", "#287DAB", "#E5BF86", "#B09771", "#624B27", "#CACFD0")

Pūtangitangi - Tadorna variegata - Paradise shelduck

c("#AA988A", "#B66A40", "#2F414B", "#2B4B3C", "#7A3520", "#7B8BA5")

Takahē - Porphyrio hochstetteri

c("#DD3C51", "#313657", "#1F6683", "#6C90B9", "#D1C7B5")

Takapu - Morus serrator - Australasian gannet

c("#DEB478", "#976533", "#D3D5D0","#76716E","#272623")

Titipounamu - Acanthisitta chloris - Rifleman

c("#3E4331", "#AD6B17", "#66743B", "#D0C471", "#CCB62F", "#BAC4C2")

Tūī - Prosthemadera novaeseelandiae

c("#7ACCD7", "#115896", "#7C6C65", "#4C4C53", "#BA2F00", "#21282F")

Non-avian additions

Pepetuna - Aenetus virescens - Puriri moth

c("#719E56", "#71702F", "#947163", "#623711", "#425266")

Pōhutukawa - Metrosideros excelsa

c("#5FA1F7", "#83A552", "#3D4928", "#9B1F1A", "#B19F8E", "#4E0B0C")

Tambja kushimotoensis - Gloomy nudibranch

c("#3399ff", "#666600", "#003399", "#999900", "#000000")

Continuous colour palettes

The colour palettes in this package are designed for discrete variables. However if your data is continuous and needs to be plotted as such (e.g. heatmaps) you can use the colorRampPalette() already part of your R installation to create a colour gradient.

For example, if you would like to create a colour gradient between the 2nd and 3rd colours from the Kotare palette you could do the following.

# Select 2nd and 3rd colours
selected_colours <- get_pal("Kotare")[c(2,3)]
# Create a gradient of 100 colours between the selected colours
colorRampPalette(selected_colours)(100)

This can be done with more than two colours too! For example, with three:

# Select 3 colours from the Kākā palette 
selected_colours <- get_pal("Kaka")[c(1,3,5)]
# Create a gradient of 100 colours between the selected colours
colorRampPalette(selected_colours)(100)

Accessibility

This package is intended to be a fun addition tool for R data visualisation and was limited to colours which could be extracted from the selected photos. Efforts were made to make these usable as colour palettes, but they do not conform to the Web Content Accessibility Guidelines (WCAG) with regards to levels of colour contrast.

The developer also does not experience colour vision deficiency but checked simulated palettes using the Prismatic package. If this is a consideration in your visualisation then the Hihi, Kotare, Takapu, Kokako or Tui palettes might be the most suitable.

Acknowledgements

Thanks go to Dr Tara McAllister (@taramcallister4) for conceiving of this idea and for helping to collect photos. Thank you also to all those on Twitter who shared their photos or expressed interest and support.

The wesanderson colour palette package, created by Karthik Ram (@_inundata) should also be acknowledged as this package draws heavily from it.

The logo is adapted from the Pigeon icon by Nicole Macdonald and made available under a Creative Commons CCBY license. Here colour and the title have been added.

Contribute

If you would like to improve or add to this package feel free to file an issue or pull request on Github or contact @GojThomson on Twitter.