Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/blakermills/momacolors
Color Schemes based around artwork and the Museum of Modern Art.
https://github.com/blakermills/momacolors
colorpalettes data-visualization museums r
Last synced: about 2 hours ago
JSON representation
Color Schemes based around artwork and the Museum of Modern Art.
- Host: GitHub
- URL: https://github.com/blakermills/momacolors
- Owner: BlakeRMills
- License: other
- Created: 2023-08-10T12:32:36.000Z (over 1 year ago)
- Default Branch: main
- Last Pushed: 2023-12-04T16:40:13.000Z (12 months ago)
- Last Synced: 2024-11-13T23:32:36.401Z (5 days ago)
- Topics: colorpalettes, data-visualization, museums, r
- Language: R
- Homepage:
- Size: 125 MB
- Stars: 189
- Watchers: 2
- Forks: 6
- Open Issues: 2
-
Metadata Files:
- Readme: README.md
- License: LICENSE
Awesome Lists containing this project
README
# MoMAColors
Palettes inspired by works at the Museum of Modern Art in New York.
This is the sister package to [`MetBrewer`](https://github.com/BlakeRMills/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`](https://github.com/jakelawlor/PNWColors) and [`wesanderson`](https://github.com/karthik/wesanderson) packages.
For requests, questions, comments, concerns, or any thing else, feel free to reach out to me:
My Website: [Here](https://www.blakerobertmills.com)
Twitter: [Here](https://twitter.com/BlakeRobMills)
LinkedIn: [Here](https://www.linkedin.com/in/blake-m-79a74513a/)
Email: [email protected]
# Content
[Installation](#install-package)
[Palettes](#palettes)
[Functions](#functions)
## Install Package
### R
MoMAColors is currently only available through GitHub. Use the following code to download it in R.
```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](https://www.moma.org/collection/works/79703?artist_id=7388&page=1&sov_referrer=artist)
***
### Alkalay1
- Stack, 2008, Shay Alkalay, Painted plywood and steel, [Link](https://www.moma.org/collection/works/126819?artist_id=36511&page=1&sov_referrer=artist)
- Colorblind-Friendly
***
### Alkalay2
- Stack, 2008, Shay Alkalay, Painted plywood and steel, [Link](https://www.moma.org/collection/works/126820?classifications=3&date_begin=Pre-1850&date_end=2023&direction=fwd&page=5&q=&utf8=%E2%9C%93&with_images=1)
- Colorblind-Friendly
***
### Althoff
- Regulatory Reestablishment, 2000, Kai Althoff, Felt, fabric, quilt, and wool, [Link](https://www.moma.org/collection/works/125097?artist_id=26178&page=1&sov_referrer=artist)
- Colorblind-Friendly
***
### Andri
- Poster for the Twenty-sixth Secession Exhibition, 1906, Ferdinand Andri, Lithograph, [Link](https://www.moma.org/collection/works/423767?sov_referrer=theme&theme_id=5611)
- Colorblind-Friendly
***
### Avedon
- George Harrison, 1967, Richard Avedon, Lithograph, [Link](https://www.moma.org/collection/works/8742)
***
### Budnitz
- Cycle Dunny, 2005, Paul Budnitz, Tristan Eaton, Cycle, Vinyl, [Link](https://www.moma.org/collection/works/109304?artist_id=32733&page=1&sov_referrer=artist)
***
### Clay
- Sarah Cross, 1980, Maude Schuyler Clay, Chromogenic print, [Link](https://www.moma.org/collection/works/49695?artist_id=1139&page=1&sov_referrer=artist)
***
### Connors
- Egypt, Hard G, 2015, Matt Connors, Acrylic on canvas with painted wood frame, [Link](https://www.moma.org/collection/works/202454?artist_id=36363&page=1&sov_referrer=artist)
- Colorblind-Friendly
***
### Dali
- The Persistence of Memory, 1931, Salvador Dalí, Oil on canvas, [Link](https://www.moma.org/collection/works/79018)
***
### Doughton
- Ferrum 5000, 1995, Steve Doughton, Film, [Link](https://www.moma.org/collection/works/314423)
- 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](https://www.moma.org/collection/works/79293)
- 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](https://www.moma.org/collection/works/85213)
- Colorblind-Friendly
***
### Flash
- Self-Portrait, New York City, New York, 1991, Lola Flash, Inkjet print, printed 2021, [Link](https://www.moma.org/collection/works/423864)
- 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](https://www.moma.org/collection/works/130959)
- Colorblind-Friendly
***
### Kippenberger
- War is No Nice, 1985, Martin Kippenberger, Oil and silicone rubber on canvas, [Link](https://www.moma.org/collection/works/79453)
- Colorblind-Friendly
***
### Klein
- New York Fly TWA, 1956, David Klein, Photolithograph, [Link](https://www.moma.org/collection/works/6291?artist_id=3134&page=1&sov_referrer=artist)
***
### Koons
- Pink Panther, 1988, Jeff Koons, Porcelain on formica base, [Link](https://www.moma.org/collection/works/81095?artist_id=6622&page=1&sov_referrer=artist)
***
### Levine1
- After Mondrian from Meltdown, 1989, Sherrie Levine, One from a portfolio of four woodcuts, [Link](https://www.moma.org/collection/works/65715)
***
### Levine2
- After Kirchner from Meltdown, 1989, Sherrie Levine, One from a portfolio of four woodcuts, [Link](https://www.moma.org/collection/works/65714)
- Colorblind-Friendly
***
### Liu
- Tulou Collective Housing, Nanhai, Guandong, China, 2005-08, Xiao Du Liu, Yan Meng, Hui Wang, Digital rendering, [Link](https://www.moma.org/collection/works/416251)
***
### 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](https://www.moma.org/collection/works/216768?classifications=3&date_begin=Pre-1850&date_end=2023&direction=fwd&page=2&q=&utf8=%E2%9C%93&with_images=1)
***
### Ohchi
- Radio, 1954, Hiroshi Ohchi, Silkscreen, [Link](https://www.moma.org/collection/works/8819?artist_id=4381&page=1&sov_referrer=artist)
- Colorblind-Friendly
***
### OKeeffe
- Evening Star No. III, 1917, Georgia O'Keeffe, Watercolor on paper mounted on board, [Link](https://www.moma.org/collection/works/78677?sov_referrer=theme&theme_id=5264)
- Colorblind-Friendly
***
### Palermo
- 4 White Forms, 1975, Blinky Palermo, Synthetic polymer paint on aluminum, four panels, [Link](https://www.moma.org/collection/works/119047)
- Colorblind-Friendly
***
### Panton
- Spectrum Textile, 1974, Verner Panton, Printed cotton, [Link](https://www.moma.org/collection/works/292747?artist_id=4485&page=1&sov_referrer=artist)
***
### Picabia
- The Spring, 1912, Francis Picabia, Oil on canvas, [Link](https://www.moma.org/collection/works/80658?artist_id=4607&page=1&sov_referrer=artist)
- Colorblind-Friendly
***
### Picasso
- Les Demoiselles d'Avignon, 1907, Pablo Picaso, Oil on canvas, [Link](https://www.moma.org/collection/works/79766?sov_referrer=theme&theme_id=5135)
- Colorblind-Friendly
***
### Rattner
- Mother and Child, 1938, Abraham Rattner, Oil on canvas, [Link](https://www.moma.org/collection/works/78474?classifications=9&date_begin=Pre-1850&date_end=2023&direction=fwd&include_uncataloged_works=1&page=37&q=&utf8=%E2%9C%93)
- Colorblind-Friendly
***
### Sidhu
- May 24 from the series Doomscrolling, 2020-2021, Zorawar Sidhu, Rob Swainston, Woodcut, [Link](https://www.moma.org/collection/works/431041?artist_id=134546&page=1&sov_referrer=artist)
- Colorblind-Friendly
***
### Smith
- White Rope, 1973, Richard Smith, Synthetic polymer paint on canvas with metal rods, rope, and string, [Link](https://www.moma.org/collection/works/80052?classifications=9&date_begin=1970&date_end=1980&direction=fwd&page=4&q=&utf8=%E2%9C%93&with_images=1)
- Colorblind-Friendly
***
### ustwo
- Monument Valley, 2014, ustwo Games, Video game software, [Link](https://www.moma.org/collection/works/409699?classifications=3&date_begin=Pre-1850&date_end=2023&direction=fwd&page=3&q=&utf8=%E2%9C%93&with_images=1)
- Colorblind-Friendly
***
### VanGogh
- The Starry Night, 1889, Vincent van Gogh, Oil on canvas, [Link](https://www.moma.org/collection/works/79802?sov_referrer=theme&theme_id=5134)
- Colorblind-Friendly
***
### vonHeyl
- Carlotta, Charline von Heyl, 2013, Oil, acrylic and charcoal on canvas, [Link](https://www.moma.org/collection/works/178801?classifications=9&date_begin=Pre-1850&date_end=2023&q=&utf8=%E2%9C%93&with_images=1)
- Colorblind-Friendly
***
### Warhol
- Collection of Marilyns, 1967, Andy Warhol, Portfolio of ten screenprints, [Link]()
***
## Functions
You can retrieve palettes using various methods listed below.
```r
moma.colors("vonHeyl")
```
```r
moma.colors("Liu", n=6, type="discrete")
```
```r
moma.colors("Clay", 5)
```
```r
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.
```r
display.all.moma()
```
You are also able to enter the desired number of colors to view all palettes at the specific level.
```r
display.all.moma(5)
```
You are able to only view colorblind-friendly palettes with the colorblind_only parameter.
```r
display.all.moma(colorblind_only = T)
```
All other parameters in moma.colors can be passed into display.all.moma
```r
display.all.moma(n=4, override_order = T, direction = -1)
```
### ggplot2 Examples
Here are also some ways you can incorporate this package into {ggplot2}
```r
ggplot(data=iris, aes(x=Species, y=Petal.Length, fill=Species)) +
geom_violin() +
scale_fill_manual(values=moma.colors("Smith", 3))
```
```r
ggplot(data=iris, aes(x=Sepal.Length, y=Sepal.Width, color=Species)) +
geom_point(size=2) +
scale_color_moma_d("Liu")
```
```r
ggplot(data=iris, aes(x=Species, y=Sepal.Width, color=Sepal.Width)) +
geom_point(size=3) +
scale_color_gradientn(colors=moma.colors("Alkalay2"))
```
```r
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
```r
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
```r
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.
```r
test.plots.moma("Picabia")
```
```r
test.plots.moma("Picasso", 5, direction = -1)
```
