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:
My Website: Here
Twitter: Here
LinkedIn: Here
Email: blakerobertmills@gmail.com

Content

Installation

Palettes

Functions

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)