#' Australian Colour Palettes
#'
#'A collection of colour palettes inspired by the landscape and wildlife of Australia. The list of available palettes is:
#' namatjira_qual, namatjira_div
#' mccrea
#' parliament
#' tasmania
#' nolan_ned
#' winmar
#' olsen_qual
#' williams_pilbara
#' healthy_reef, dead_reef
#' galah, lorikeet, jumping_frog
#' emu_woman_paired
#'
#'@examples
#'
#' # Make an x-y plot using the Namatjira palette
#' library(tidyverse)
#' df <- data.frame(x = rnorm(100, 0, 20),
#' y = rnorm(100, 0, 20),
#' cl = sample(letters[1:8], 100, replace=TRUE))
#' ggplot(df, aes(x, y, colour=cl, shape=cl)) +
#' geom_point(size=4) + scale_colour_ochre() +
#' theme_bw() + theme(aspect.ratio=1)
#'
#' # Make a histogram using the McCrea Collins Street palette
#' ggplot(df, aes(x, fill=cl)) + geom_histogram() +
#' scale_fill_ochre(palette="mccrea")
#'
#' \dontrun{
#' data(elev)
#' library(elevatr)
#' library(raster)
#' library(ochRe)
#' colpal <- ochre_pal()(150)
#' ex <- extent(110, 155, -45, -10)
#' elev <- raster::crop(elev, ex)
#' elev[elev < 0] <- NA
#' topo <- list(x = xFromCol(elev), y = rev(yFromRow(elev)),
#' z = t(as.matrix(elev))[, nrow(elev):1])
#' par(mar = rep(0, 4), bg = "#444444")
#' image(topo, useRaster = TRUE, col = colpal,
#' axes = FALSE, xlab = "", ylab = "",
#' asp = cos(27.5 * pi/180))
#' }
#' @export
ochre_palettes <- list(
## Albert Namatjira: Twin Ghosts
## http://www.menziesartbrands.com/sites/default/files/field/catalogue_items//DM_24017.jpg
namatjira_qual = c(
"#d8f0f0",
"#786060",
"#d8c0a8",
"#a86030",
"#a890a8",
"#486090",
"#a89078",
"#f0a860"
),
namatjira_div = c(
"#786060",
"#486090",
"#a890a8",
"#d8f0f0",
"#f0a860",
"#d8c0a8",
"#a89078",
"#a86030"
),
## Georgiana McCrae, "Melbourne, Collins St, 1841",
## https://en.wikipedia.org/wiki/File:Melbourne_Collins_Street_1841.jpg
mccrea = c(
"#a8c0a8",
"#c0c0a8",
"#a8a890",
"#909078",
"#a8a8a8",
"#c0c0c0",
"#d8c0a8",
"#c09048",
"#c07848",
"#d89060",
"#c07848"
),
# based on the great all tapestry https://www.aph.gov.au/Visit_Parliament/Art/Top_5_Treasures/Great_Hall_Tapestry
# and house of reps and senate colours https://www.peo.gov.au/learning/closer-look/australias-parliament-house/a-place-for-the-parliament.html
parliament = c(
"#a84848", # senate red
"#f0d8d8", # light pink/red
"#304830", # dark green
"#909078", # grey green
"#607890", # grey blue
"#90a8a8", # light blue
"#906030", # brown
"#c0a890" # light brown
),
# based on photographs from cradle mountain national park and the bay of fires
# random comment
tasmania = c(
"#a84830", # bay of fires lychen
"#d89060", # lighter lychen
"#604830", # forest brown
"#6090d8", # wineglass bay blue
"#c0c0d8", # crater lake grey
"#606030", # fern green
"#486030" # enchanted walk moss
),
## Sidney Nolan, "Ned Kelly 1946",
## https://cs.nga.gov.au/detail.cfm?irn=28926
nolan_ned = c(
"#a89030", # ochre
"#004878", # sky blue
"#78a890", # dusty blue
"#000000", # black
"#481800" # brown
),
## Wayne Ludbey, "Nicky Winmar St Kilda Footballer", 1993
## https://nga.gov.au/federation/Detail.cfm?WorkID=27707&ZoomID=3
winmar = c(
"#d8d8d8",
"#609060",
"#183030",
"#a8c090",
"#604848",
"#d8c0a8",
"#a86048"
),
## John Olsen, "Sydney Sun, 1965",
## https://artsearch.nga.gov.au/Detail-LRG.cfm?IRN=26102
olsen_qual = c(
"#c47000", # rusty yellow
"#e0c48c", # light tan
"#8c3800", # dark orange
"#e0a81c", # yellow
"#8ca8c4", # dusky blue
"#385438" # dark green
),
olsen_seq = c(
"#701c00",
"#8c3800",
"#a85400",
"#c47000",
"#c48c1c",
"#e0a81c",
"#e0c48c",
"#e0e0e0",
"#c4c4c4",
"#8ca8c4",
"#708ca8",
"#1c54a8",
"#385438",
"#38381c"
),
## Fred Williams, Mount Nameless (morning)
## http://www.art-almanac.com.au/wp-content/uploads/2013/11/benalla_mt_nameless_review_1213.jpg
## 7 30 y n
williams_pilbara = c(
"#d23c1e", # 3
"#965a3c", # 6
"#b4783c", # 2
"#b4d2d2", # 5
"#96b4b4", # 7
"#96b4d2", # 4
"#7896b4" # 1
),
## Great Barrier reef, before global warming
## based on http://aussiedestinationtours.com/wp-content/uploads/2014/07/Greatbarrierreef.jpg
healthy_reef = c(
"#f63b32", # hot coral
"#e37870", # coral pink
"#f3ff41", # bright yellow
"#005487", # deep blue
"#52bcd4", # blue sand
"#679c40", # sea green
"#f3fbfb", # white coral
"#1c0608", # dark brown coral
"#002B52" # dark blue
),
## Emily Kame Kngwarreye, Emu Woman 1988–89
## http://www.nma.gov.au/exhibitions/utopia_the_genius_of_emily_kame_kngwarreye/emily_kame_kngwarreye
emu_woman_paired = c(
"#AB7E37",
"#79222A",
"#562323",
"#333B43",
"#B68830",
"#232728",
"#B9ACA3",
"#7A2529",
"#2C374A",
"#120F11",
"#768B99",
"#6F2827",
"#7B939C",
"#BD852C",
"#AAAEB5",
"#78292F",
"#B6B0AE",
"#3A3A43" ),
## Galah
## https://theconversation.com/how-the-australian-galah-got-its-name-in-a-muddle-65646
galah = c(
"#903030", "#d84860",
"#f0a8c0", "#ffffff",
"#a8a8a8","#787878"),
## Rainbow lorikeet
## http://reptilepark.com.au/animals/birds/rainbow-lorikeet/
lorikeet = c(
"#486030",
"#c03018",
"#f0a800",
"#484878",
"#a8c018",
"#609048"),
## Bleached great barrier reef
## http://cdn.newsapi.com.au/image/v1/7c2f433cd1e020a6ad1b7018070c55a6
dead_reef = c(
"#D2E1DE",
"#548495",
"#3C4347",
"#758388",
"#DBE9E2",
"#8E9796"
),
## Jumping Frog (John Olsen, 1982)
## http://cdn.artserieshotels.com.au/images/made/images/remote/http_cdn.artserieshotels.com.au/images/uploads/main/john-olsen-artist-artwork1_600_400_60.jpg
jumping_frog = c(
"#607848",
"#184848",
"#c0c030",
"#a8a890",
"#90a878"
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.