## ## =====================================================
## ## Dutch Masters paletti
## ## =====================================================
## ## From: https://github.com/EdwinTh/dutchmasters
## dutchmasters <- list(
## ## Johannes Vermeer - The Milkmaid
## ## https://en.wikipedia.org/wiki/The_Milkmaid_(Vermeer)
## milkmaid =
## c("red(skirt)" = "#48211A",
## "blue(skirt)" = "#376597",
## "green(tablecloth)" = "#537270",
## "green(sleeve)" = "#556246",
## "green(sleeve2)" = "#928F6B",
## "yellow(buste)" = "#CCAF69",
## "white(cap)" = "#ECE5D3",
## "blue(skirt)" = "#104A8A",
## "brown(basket)" = "#C5AC8E",
## "green(table cloth" = "#889F95",
## "organge(floor)" = "#7C4728",
## "blue(vase)" = "#00295D",
## "skin" = "#D9B196"
## ),
## ## Johannes Vermeer - Girl with a Pearl Earring
## ## https://en.wikipedia.org/wiki/Girl_with_a_Pearl_Earring
## pearl_earring =
## c("red(lips)" = "#A65141",
## "skin" = "#E7CDC2",
## "blue(scarf1)" = "#80A0C7",
## "blue(scarf2)" = "#394165",
## "white(colar)" = "#FCF9F0",
## "gold(dress)" = "#B1934A",
## "gold(dress2)" = "#DCA258",
## "black(background)" = "#100F14",
## "grey(scarf3)" = "#8B9DAF",
## "yellow(scarf4)" = "#EEDA9D",
## "#E8DCCF"
## ),
## ## Johannes Vermeer - View of Delft
## ## https://en.wikipedia.org/wiki/View_of_Delft
## view_of_Delft =
## c("blue(sky)" = "#78A8D1",
## "yellow(tower)" = "#D5BF98",
## "yellow(facade)" = "#E3C78F",
## "white(cloud1)" = "#FDF9F8",
## "brown(cloud2)" = "#867D6C",
## "red(roofs)" = "#A04437",
## "red(roofs2)" = "#AF7366",
## "yellow(quay)" = "#EFBF6A",
## "brown(docks)" = "#8E7C56",
## "blue(sky2)" = "#CDD4E4",
## "brown(gate)" = "#8B6C4F",
## "greay(water)" = "#B4B7B9"
## ),
## ## Johannes Vermeer - The Little Street
## ## https://en.wikipedia.org/wiki/The_Little_Street
## little_street =
## c("red(panel)" = "#9D3D2D",
## "greay(sky)" = "#99A8A5",
## "red(bricks)" = "#8F4C2D",
## "green(panel)" = "#6A6A54",
## "white(bricks)" = "#EADAC5",
## "black(windows)" = "#27221F",
## "green(bushes)" = "#727C73",
## "yellow(cobbles)" = "#C9AA82",
## "brown(skirt)" = "#3A2D22",
## "red(shirt)" = "#8F5144",
## "yellow(cobbles2)" = "#C9BDA3"
## ),
## ## Rembrandt van Rijn - The Anatomy Lesson of Dr. Nicolaes Tulp
## ## https://en.wikipedia.org/wiki/The_Anatomy_Lesson_of_Dr._Nicolaes_Tulp
## anatomy =
## c("grey(corpse)" = "#B2AAA2",
## "black(cloak)" = "#0D0B0C",
## "pink(cheek)" = "#B47562",
## "brown(cloak)" = "#332826",
## "brown(table)" = "#B18147",
## "red(muscle)" = "#803B31",
## "white(colar)" = "#CBC2C3"
## ),
## ## Rembrandt van Rijn - The "Staalmeesters"
## ## https://en.wikipedia.org/wiki/Syndics_of_the_Drapers%27_Guild
## staalmeesters =
## c("red(tablecloth)" = "#A13826",
## "red(tablecloth2)" = "#701B06",
## "brown(panel)" = "#4C3114",
## "brown(panel2)" = "#7A491E",
## "white(colar)" = "#D7E1D6",
## "black(cloak)" = "#060A0D",
## "skin" = "#D39C7B"
## ),
## ## 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"
## )
## )
## ## {{{ docs }}}
#' dutchmasters palette with ramped colours
#'
#' @param palette Choose from 'dutchmasters_palettes' list
#'
#' @param alpha transparency
#'
#' @param reverse If TRUE, the direction of the colours is reversed.
#'
#' @examples
#' library(scales)
#' show_col(dutchmasters_pal("milkmaid")(10))
#'
#' filled.contour(volcano,color.palette = dutchmasters_pal("pearl_earring"), asp=1) #'
#' @export
## }}}
## dutchmasters_pal <- function(palette="milkmaid", alpha = 1, reverse = FALSE)
## {
## pal <- dutchmasters[[palette]]
## if (reverse){
## pal <- rev(pal)
## }
## return(colorRampPalette(pal, alpha))
## }
## ## {{{ docs }}}
#' Setup colour palette for ggplot2
#'
#' @rdname scale_color_dutchmasters
#'
#' @param palette Choose from 'dutchmasters_palettes' list
#'
#' @param reverse logical, Reverse the order of the colours?
#'
#' @param alpha transparency
#'
#' @param discrete whether to use a discrete colour palette
#'
#' @param ... additional arguments to pass to scale_color_gradientn
#'
#' @inheritParams viridis::scale_color_viridis
#'
#' @importFrom ggplot2 scale_colour_manual
#'
#' @examples
#' library(ggplot2)
#' ggplot(mtcars, aes(mpg, wt)) +
#' geom_point(aes(colour = factor(cyl)), size = 4) +
#' scale_colour_dutchmasters()
#' ggplot(mtcars, aes(mpg, wt)) +
#' geom_point(aes(colour = hp)) +
#' scale_colour_dutchmasters(palette="pearl_earring", discrete = FALSE)
#' ggplot(data = mpg) +
#' geom_point(mapping = aes(x = displ, y = hwy, color = class)) +
#' scale_colour_dutchmasters(palette="view_of_Delft")
#' ggplot(diamonds) + geom_bar(aes(x = cut, fill = clarity)) +
#' scale_fill_dutchmasters(palette = "anatomy")
#' @export
## }}}
## scale_color_dutchmasters <- function(..., palette = "milkmaid", discrete = TRUE, alpha = 1, reverse = FALSE)
## {
## if (discrete) {
## discrete_scale("colour", "dutchmasters", palette=dutchmasters_pal(palette, alpha = alpha, reverse = reverse))
## } else {
## scale_color_gradientn(colours = dutchmasters_pal(palette, alpha = alpha, reverse = reverse, ...)(256))
## }
## }
## #' @rdname scale_color_dutchmasters
## #' @export
## scale_colour_dutchmasters <- scale_color_dutchmasters
## ## {{{ docs }}}
#' Setup fill palette for ggplot2
#'
#' @param palette Choose from 'dutchmasters_palettes' list
#'
#' @inheritParams viridis::scale_fill_viridis
#' @inheritParams dutchmasters_pal
#'
#' @param discrete whether to use a discrete colour palette
#'
#' @param ... additional arguments to pass to scale_color_gradientn
#'
#' @importFrom ggplot2 scale_fill_manual discrete_scale scale_fill_gradientn
#'
#' @export
## }}}
## scale_fill_dutchmasters <- function(..., palette="milkmaid", discrete = TRUE, alpha=1, reverse = TRUE)
## {
## if (discrete) {
## discrete_scale("fill", "dutchmasters", palette=dutchmasters_pal(palette, alpha = alpha, reverse = reverse))
## }
## else {
## scale_fill_gradientn(colours = dutchmasters_pal(palette, alpha = alpha, reverse = reverse, ...)(256))
## }
## }
## ## =====================================================
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.