morris

KO | EN

gitlite — search

#css #python #javascript #machine-learning #html #html5 #typescript #deep-learning #langchain #openai #object-detection #rust

★ 21 Open GitHub ↗

🎨 William Morris colour palettes for ggplot2 🎨

// repository documentation

Was this content helpful?

★ 0 (0 ratings)

🎨📦 morris 📦🎨 : William Morris palettes for ggplot2 
================
**Christian Steven Hoggard** (University of Southampton)

[![License:
MIT](https://img.shields.io/badge/License-MIT-yellow.svg)](https://github.com/cshoggard/morris/blob/master/LICENSE.md)

# Introduction
 
<img src="readme_files/wm.jpg" width="400" />

“If others can see <del>it</del> the morris package as I have seen it, then it may be called a vision rather than a dream.” (William Morris, News From Nowhere)

This package provides a number of palettes for ggplot2 inspired by the British textile designer, poet, novelist and activist [William Morris](https://en.wikipedia.org/wiki/William_Morris). William Morris (1834-1896) was a major contributor to the revival of traditional British textile arts and is best associated with the [British Arts and Crafts movement](https://en.wikipedia.org/wiki/Arts_and_Crafts_movement). Rooted in the [Modern Style (British Art Nouveau)](https://en.wikipedia.org/wiki/Modern_Style_(British_Art_Nouveau_style)), the Arts and Crafts movement was known for traditional craftsmanship, often using medieval, romantic and folk styles of decoration. Known for its advocation of economic and social reform, the movement was strongly anti-industrial, and prior to the 1930s had a strong influence on the arts in Europe.

# Installation

Please use the `devtools` package in order to install `morris`.

``` r
devtools::install_github("cshoggard/morris")
```

All colour palettes were extracted from images of original works using the `magick` and `imager` packages. Here, palettes are constructed from six of William Morris' most famous works:

**Strawberry Thief** (1883). V&A Museum no. T.586-1919.

``` r
scales::show_col(morris:::strawberry_palette)
```

**Trellis** (1864). V&A Museum no. E.452-1919.

``` r
scales::show_col(morris:::trellis_palette)
```

**Holland Park** (1883). Met Museum no. 27.139.3.

``` r
scales::show_col(morris:::holland_palette)
```

**Peacock and Dragons** (1878). WMG no. F26e.

``` r
scales::show_col(morris:::peacock_palette)
```

**Embroidery with Flowers and Leaves (Leek Embroidery Society)** (1885-1895). Rijksmuseum no. BK-1994-28.

``` r
scales::show_col(morris:::flowers_palette)
```

**Acanthus** (1875). V&A Museum no. E.496-1919.

``` r
scales::show_col(morris:::acanthus_palette)
```

## An example:

``` r
library(tidyverse)
#> -- Attaching packages ------------------------------------------------ tidyverse 1.2.1 --
#> v ggplot2 3.1.0       v purrr   0.3.0  
#> v tibble  2.0.1       v dplyr   0.8.0.1
#> v tidyr   0.8.2       v stringr 1.4.0  
#> v readr   1.3.1       v forcats 0.4.0
#> -- Conflicts --------------------------------------------------- tidyverse_conflicts() --
#> x dplyr::filter() masks stats::filter()
#> x dplyr::lag()    masks stats::lag()
library(morris)
library(palmerpenguins)
library(extrafont)
#> Registering fonts with R
```

``` plot
loadfonts(device = "win")

theme_set(theme_minimal(base_size = 12, base_family = "Lato"))

penguins %>%
  ggplot(aes(flipper_length_mm, body_mass_g, shape = species, colour = species)) +
           geom_point(size = 3) +
  scale_colour_flowers() +
  labs(title = "Penguin Mass vs. Flipper Length",
       x = "Flipper Length (mm)", 
       y = "Body Mass (g)",
       shape = "Species",
       colour = "Species") +
  theme(plot.title = element_text(size = 18, hjust = 0.5, margin = margin(0,0,20,0)),
        legend.position = "bottom")
```

morris

Explore Similar Repositories

Was this content helpful?

Recent Feedback

Download README