Awesome
MoMAColors
Palettes inspired by works at the Museum of Modern Art in New York.
This is the sister package to MetBrewer
, which contains color schemes based around artwork at the Metropolitan Museum of Art in New York.
Structure of the package was based on coding from the PNWColors
and wesanderson
packages.
For requests, questions, comments, concerns, or any thing else, feel free to reach out to me:<br /> My Website: Here<br /> Twitter: Here<br /> LinkedIn: Here <br />Email: blakerobertmills@gmail.com
Content
Install Package
R
MoMAColors is currently only available through GitHub. Use the following code to download it in R.
# install.packages("devtools")
devtools::install_github("BlakeRMills/MoMAColors")
Palettes
All Palettes
Abbott
- Tress, 1994, Matthew Abbott, Synthetic polymer paint and modeling paste on linen, Link
Alkalay1
- Stack, 2008, Shay Alkalay, Painted plywood and steel, Link
- Colorblind-Friendly
Alkalay2
- Stack, 2008, Shay Alkalay, Painted plywood and steel, Link
- Colorblind-Friendly
Althoff
- Regulatory Reestablishment, 2000, Kai Althoff, Felt, fabric, quilt, and wool, Link
- Colorblind-Friendly
Andri
- Poster for the Twenty-sixth Secession Exhibition, 1906, Ferdinand Andri, Lithograph, Link
- Colorblind-Friendly
Avedon
- George Harrison, 1967, Richard Avedon, Lithograph, Link
Budnitz
- Cycle Dunny, 2005, Paul Budnitz, Tristan Eaton, Cycle, Vinyl, Link
Clay
- Sarah Cross, 1980, Maude Schuyler Clay, Chromogenic print, Link
Connors
- Egypt, Hard G, 2015, Matt Connors, Acrylic on canvas with painted wood frame, Link
- Colorblind-Friendly
Dali
- The Persistence of Memory, 1931, Salvador Dalí, Oil on canvas, Link
Doughton
- Ferrum 5000, 1995, Steve Doughton, Film, Link
- Colorblind-Friendly
Ernst
- Two Children Are Threatened by a Nightingale (Deux Enfants sont menacés par un rossignol), 1924, Max Ernst, Oil with painted wood elements and cut-and-pasted printed paper on wood with wood frame, Link
- Colorblind-Friendly
Exter
- Don Juan, Hell (Don Juan, l’enfer) from Alexandra Exter: Stage Sets (Alexandra Exter: Décors de théâtre), 1929, Alexandra Exter, Mediun, Link
- Colorblind-Friendly
Flash
- Self-Portrait, New York City, New York, 1991, Lola Flash, Inkjet print, printed 2021, Link
- Colorblind-Friendly
Fritsch
- Group of Figures, 2006-08, Katharina Fritsch, Painted stainless steel, painted bronze, and painted copper electrotype filled with resin and fiberglass, Link
- Colorblind-Friendly
Kippenberger
- War is No Nice, 1985, Martin Kippenberger, Oil and silicone rubber on canvas, Link
- Colorblind-Friendly
Klein
- New York Fly TWA, 1956, David Klein, Photolithograph, Link
Koons
- Pink Panther, 1988, Jeff Koons, Porcelain on formica base, Link
Levine1
- After Mondrian from Meltdown, 1989, Sherrie Levine, One from a portfolio of four woodcuts, Link
Levine2
- After Kirchner from Meltdown, 1989, Sherrie Levine, One from a portfolio of four woodcuts, Link
- Colorblind-Friendly
Liu
- Tulou Collective Housing, Nanhai, Guandong, China, 2005-08, Xiao Du Liu, Yan Meng, Hui Wang, Digital rendering, Link
Lupi
- Dear Data: Week 43 (Trying New Things / A Week of New Things), 2015, Giorgia Lupi, Stefanie Posavec, Ink, pencil, colored pencil, and marker on paper, Link
Ohchi
- Radio, 1954, Hiroshi Ohchi, Silkscreen, Link
- Colorblind-Friendly
OKeeffe
- Evening Star No. III, 1917, Georgia O'Keeffe, Watercolor on paper mounted on board, Link
- Colorblind-Friendly
Palermo
- 4 White Forms, 1975, Blinky Palermo, Synthetic polymer paint on aluminum, four panels, Link
- Colorblind-Friendly
Panton
- Spectrum Textile, 1974, Verner Panton, Printed cotton, Link
Picabia
- The Spring, 1912, Francis Picabia, Oil on canvas, Link
- Colorblind-Friendly
Picasso
- Les Demoiselles d'Avignon, 1907, Pablo Picaso, Oil on canvas, Link
- Colorblind-Friendly
Rattner
- Mother and Child, 1938, Abraham Rattner, Oil on canvas, Link
- Colorblind-Friendly
Sidhu
- May 24 from the series Doomscrolling, 2020-2021, Zorawar Sidhu, Rob Swainston, Woodcut, Link
- Colorblind-Friendly
Smith
- White Rope, 1973, Richard Smith, Synthetic polymer paint on canvas with metal rods, rope, and string, Link
- Colorblind-Friendly
ustwo
- Monument Valley, 2014, ustwo Games, Video game software, Link
- Colorblind-Friendly
VanGogh
- The Starry Night, 1889, Vincent van Gogh, Oil on canvas, Link
- Colorblind-Friendly
vonHeyl
- Carlotta, Charline von Heyl, 2013, Oil, acrylic and charcoal on canvas, Link
- Colorblind-Friendly
Warhol
- Collection of Marilyns, 1967, Andy Warhol, Portfolio of ten screenprints, Link
Functions
You can retrieve palettes using various methods listed below.
moma.colors("vonHeyl")
moma.colors("Liu", n=6, type="discrete")
moma.colors("Clay", 5)
moma.colors("Ernst" , n=100, type="continuous")
Displaying All Palettes
All palettes can be displayed at once using the display.all.moma function. This returns all palettes in their entirety if no n is provided.
display.all.moma()
You are also able to enter the desired number of colors to view all palettes at the specific level.
display.all.moma(5)
You are able to only view colorblind-friendly palettes with the colorblind_only parameter.
display.all.moma(colorblind_only = T)
All other parameters in moma.colors can be passed into display.all.moma
display.all.moma(n=4, override_order = T, direction = -1)
ggplot2 Examples
Here are also some ways you can incorporate this package into {ggplot2}
ggplot(data=iris, aes(x=Species, y=Petal.Length, fill=Species)) +
geom_violin() +
scale_fill_manual(values=moma.colors("Smith", 3))
ggplot(data=iris, aes(x=Sepal.Length, y=Sepal.Width, color=Species)) +
geom_point(size=2) +
scale_color_moma_d("Liu")
ggplot(data=iris, aes(x=Species, y=Sepal.Width, color=Sepal.Width)) +
geom_point(size=3) +
scale_color_gradientn(colors=moma.colors("Alkalay2"))
library(urbnmapr)
countydata %>%
left_join(counties, by = "county_fips") %>%
filter(state_name =="Nebraska") %>%
ggplot(mapping=aes(long,lat,group = group, fill = horate)) +
geom_polygon(color="black",size=.25) +
scale_fill_moma_c("Kippenberger") +
coord_fixed() +
labs(fill="Homeownership rate") +
theme_void()
Colorblind Friendly Checking
The package has been updated to check for colorblind-friendlyness You can list out the colorblind-friendly palettes with the following code
MoMAColors::colorblind_moma_palettes
[1] "Alkalay1" "Alkalay2" "Althoff" "Andri" "Connors" "Doughton"
[7] "Ernst" "Exter" "Flash" "Fritsch" "Kippenberger" "Koons"
[13] "Levine2" "Ohchi" "OKeeffe" "Palermo" "Picabia" "Picasso"
[19] "Rattner" "Sidhu" "Smith" "ustwo" "VanGogh" "vonHeyl"
You can also test is a palettes is colorblind friendly using the function provided
MoMAColors::colorblind.friendly.moma("Palermo")
[1] TRUE
MoMAColors::colorblind.friendly.moma("Avedon")
[1] FALSE
Test Plots
The test.plots.moma function returns 4 different visualization types to get a quick glimse of how a desired palette would look in practice. This includes a starburst plot, a stream plot, a violin plot, and a stack bar chart. The test.plots.moma function can take all parameters that moma.colors is able to; however, plots cannot be generated when more than 26 colors are requested.
test.plots.moma("Picabia")
test.plots.moma("Picasso", 5, direction = -1)