README.md

In shu251/PaletteWoodsHole: What the Package Does (One Line, Title Case)

Woods Hole Palettes

Introduce Woods Hole inspired colors into your data visualizations.

Installation

R package is available for download through Github and devtools.

# install.packages("devtools")
devtools::install_github("shu251/PaletteWoodsHole")

• Package depencies include library(scales)
• If you need to update the library, use devtools::install_github("shu251/PaletteWoodsHole", force = TRUE)

Usage

Load library

library(PaletteWoodsHole)

To see all palette names available:

names(woodshole)

#  [1] "whoi"           "whoisec"       
#  [3] "jason"          "atlantis"      
#  [5] "wefa_sun"       "bikepath"      
#  [7] "bog"            "rocky_beach"   
#  [9] "eelpond_winter" "tulips"        
# [11] "sunset_winter"  "dock"          
# [13] "marsh"          "siders_filters"
# [15] "siders"         "siders_summer" 
# [17] "alvin"          "long_pond"     
# [19] "knob"           "naushon"    

View colors in a grid using function show_color()

# Example usage:
show_color(bog)

Output:

Color palettes

Series of color palettes available for use in R or other platforms, inspired by the Woods Hole and Falmouth area on Cape Cod and Woods Hole Oceanographic Institution.

Woods Hole & Falmouth

West Falmouth sunset

wefa_sun <- c("#DDC794", "#B5623A", "#F95316","#584438",
              "#EEBA62","#8C3B25","#9B8E77","#917062")

Shining Sea Bikeway

bikepath <- c("#6C6865","#595E44","#869055","#E1DFEA","#313E1C","#D0D4DC","#BCB277")

Cranberry Bog

bog <- c("#AC7070","#D6D9DA", "#33291B","#C5C7C7", "#937771","#5A4A35")

Rocky beach

rocky_beach <- c("#716347","#476AA7","#7299CE","#A2937A","#B2C9E3","#3D3019")

Eel pond - winter

eelpond_winter <- c("#E1E7ED","#C5C9CF","#353638",
                    "#6A7072","#AAAEB3","#ffffff")

Spring

tulips <- c("#D77D36", "#E4BF62", "#79805E", 
            "#E2DBC7","#81A063","#fa9fb5",
            "#B24236","#fed976","#5A7356")

Winter Sunset

sunset_winter <- c("#FDEAAB","#E9B27A","#A8B1BD","#B58975","#DBDBD2","#F6E7C1")

Dock at Eel Pond

dock <- c("#6FA9E4", "#A4723F","#577383", "#F8F5E5", "#D1AB8A", "#FBDB9A","#5C5E5E", "#A12531", "#59372B")

Marsh

marsh <- c("#5B2A14", "#AE5D3F", "#A02E35", "#665438", "#A27F41", "#A99152", "#D7C598", "#767D27", "#8C8987")

The Knob

Image from Julie Huber

knob = c("#6D635F","#455455","#929999", 
          "#D8C7AE", "#F4C088", "#FFFA78",
          "#F58F52", "#EB6525")

Naushon Island, Hadley Harbor

Image from Julie Huber

naushon = c("#96A1B9", "#E6CBA9", "#856841",
          "#DD9571", "#5B5B8A", "#C67B33")

Long Pond

Image from Julie Huber

long_pond = c("#C9A456", "#E27741", "#CB4E07","#8A9B5E",
              "#643830", "#ABC9CB", "#DAB576", "#B04029")

Siders Pond

Siders Pond

Image from Huber lab

siders = c("#B8BFD0", "#F8EBDA", "#FDE7C4", 
           "#F9C79F", "#6D3F23", "#787677", 
           "#4B427C", "#1A4F28")

siders_filters = c("#D8C68E", "#B29A43", "#AA8E71", 
                   "#684B32", "#8E7154")

Field work at Siders Pond

Image from the Huber lab

siders_summer = c("#738EC0", "#435633", "#5570A1", 
                  "#647825", "#F36556", "#9CA0D6")

Woods Hole Oceanographic Institution

whoi <- c("#041E42", "#00A9E0", "#0069B1", "#00B7BD", "#53565A", "#BBBCBC")

whoisec <- c("#FFD100", "#EE5340", "#E6E7E8", "#B7BF10")

Derived from the WHOI graphics department color palette.

Jason

jason <- c("#044F9A","#fec44f", "#5D86C3", "#fc4e2a", "#B6C8DB", "#2A394F")

Alvin

Image from WHOI

alvin = c("#DBFCFD", "#EF6A3F", "#145178", 
          "#DBDBDB", "#233133", "#257C9B", "#FFFFFF")

Atlantis

Image from WHOI

atlantis <- c("#9DBABB","#1B334B","#CFBC9F",
              "#576F70","#091A2A","#301609",
              "#E0E5E5","#596873","#878A7E")

Example usage in ggplot

Bar plot using custom Woods Hole palette.

# Load libraries
library(PaletteWoodsHole)
library(tidyverse)

# plot star wars character heights using custom color palette
starwars %>% 
  filter(!is.na(height)) %>% 
  sample_n(6) %>% 
  ggplot(aes(x = name, y = height, fill = name)) +
    geom_bar(stat = "identity", color = "black", aes(fill = name)) +
    ##
    scale_fill_manual(values = sunset_winter) +
    ##
    scale_y_continuous(expand = c(0,0)) +
    theme_classic() +
    theme(axis.text.x = element_text(angle = 45, hjust = 1, vjust = 1)) +
  labs(x = "", y = "Height", title = "Star Wars character height")

Info & resources

• Last updated March 2, 2021 - SKH
• All images from Sarah Hu, unless otherwise stated (likely from Julie's Instagram).
• These palettes are inspired by territory that was stolen from the Nauset People and Wampanoag Nation (People of the First Light). I acknowledge that this land has a history of forced removal of the Native peoples, and express gratitude to the Wampanoag Nation for the land I live and work on.
• R package development guidance.
• Compilation of HEX colors for each photo curated using color picking with Affinity designer and selection with color brewer.

shu251/PaletteWoodsHole documentation built on March 7, 2021, 9:56 p.m.