Holiday snap palettes

Here are some pallettes I have made from my own holiday snaps. This is based on the excellent wespalette package and is for personal use only.

Installation

remotes::install_github("mrc-ide/snapalette")

Usage

library(snapalette)
# See all palettes
names(snapalettes)
#>  [1] "Mosaic"          "EspiritoSanta"   "ST_art"         
#>  [4] "DiscoverySuites" "IpanemaSunset"   "Orchid"         
#>  [7] "CaveHouse"       "Kalypso"         "ThiraJazz"      
#> [10] "Camden"          "Venice"          "Barcelona"      
#> [13] "Fjord"           "Stavanger"       "SweetShop"      
#> [16] "Wales"           "SzimplaKert"     "BudapestCitadel"
#> [19] "Ipanema"         "Bouquet"         "Pop"            
#> [22] "Space"           "Ember"           "Tree5"          
#> [25] "Tree3"           "Charleston"      "sph_building"

Palettes

Mosaic from Fiocruz

snapalette("Mosaic")

EspiritoSanta

snapalette("EspiritoSanta")

Street art

snapalette("ST_art")

Discovery Suites

snapalette("DiscoverySuites")

Ipanama sunset

snapalette("IpanemaSunset")

Orchid

snapalette("Orchid")

Greek cave house

snapalette("CaveHouse")

Kalypso

snapalette("Kalypso")

pal <- snapalette("Kalypso", 21, type = "continuous")
image(volcano, col = rev(pal))

ThiraJazz

snapalette("ThiraJazz")

Camden

snapalette("Camden")

Venice

snapalette("Venice")

Barcelona

snapalette("Barcelona")

library("ggplot2")
ggplot(mtcars, aes(factor(cyl), fill=factor(gear))) +  geom_bar() +
scale_fill_manual(values =snapalette("Barcelona"))

Fjord

snapalette("Fjord")

Stavanger

snapalette("Stavanger")

Sweet Shop

snapalette("SweetShop")

Wales

snapalette("Wales")

Szimpla Kert

snapalette("SzimplaKert")

Budapest Citadel

snapalette("BudapestCitadel")

Ipanema

snapalette("Ipanema")

Bouquet

snapalette("Bouquet")

Pop

snapalette("Pop")

Space

snapalette("Space")

Ember

snapalette("Ember")

Tree5

snapalette("Tree5")

Tree3

snapalette("Tree3")

Charleston

snapalette("Charleston")

SPH building

snapalette("sph_building")

Make your own palette

If you have your own holiday snap that would make a great palette, you can use snap2palette. This takes a path to a png or jpeg and produces a palette from that picture.

par(mar=c(1,1,1,1))
snap2palette("figure/lemon.jpeg", 5, plot_palette = FALSE, plot_picture = TRUE)

#> [1] "#08506c" "#1379a1" "#dfe7e0" "#d0b831" "#dfd46d"

par(mar=c(1,1,1,1))
snap2palette("figure/lemon.jpeg", 5, plot_palette = TRUE, plot_picture = FALSE)

#> [1] "#157ea5" "#d8c64d" "#084e69" "#10729a" "#dfe6de"