edar: Exploratory Data Analysis in R

## ## =====================================================
## ## 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))
##     }
## }
## ## =====================================================