---
title: "Overview of the 'pals' package"
author: "Kevin Wright"
date: "`r Sys.Date()`"
bibliography: pals.bib
output:
  rmarkdown::html_vignette:
vignette: >
  %\VignetteIndexEntry{Overview of the 'pals' package}
  %\VignetteEncoding{UTF-8}
  %\VignetteEngine{knitr::rmarkdown}
---

The purpose of the `pals` package is twofold:

1. Provide a comprehensive collection of color palettes and colormaps
2. Provide tools for evaluating these collections.

Memory use is reduced by compressing colormaps to fewer colors and by calling `colorRampPalette` only when a colormap is requested.

This report gives some suggestions/recommendations for color and then gives an example of each evaluation tool.

```{r setup, echo=FALSE, results="hide"}
library("knitr")
opts_chunk$set(fig.align="center", fig.width=6, fig.height=6)
options(width=90)
```
# Recommendations

The appearance of color depends on:

1. The display device (laptop/monitor, projector, paper, photocopy).
2. The type of graphic (regions, lines).
3. The person viewing the graphic (age, gender, colorblindness)

It is difficult to give definitive recommendations for the best palettes and colormaps.  Nonetheless, here are some we like.

Diverging: `coolwarm`/`warmcool` (avoid Mach banding in the middle).

Sequential (multi-hue): `ocean.haline`, `parula` (default in Matlab).

Sequential (one hue):  `brewer.blues`.

Rainbow: `cubicl`, `kovesi.rainbow`.

Cyclical: `ocean.phase`.

Categorical: `brewer.paired`, `stepped`

Bivariate: `brewer.seqseq2`.

```{r}
require(pals)
pal.bands(coolwarm, parula, ocean.haline, brewer.blues, cubicl, kovesi.rainbow, ocean.phase, brewer.paired(12), stepped, brewer.seqseq2,
          main="Colormap suggestions")
```

# Functions in the `pals` package

## pal.bands()

Show palettes and colormaps as colored bands

### What to look for:

1. A good discrete palette has distinct colors.
2. A good continuous colormap does not show boundaries between colors.

The graphic below shows what we consider to be major flaw of the viridis palette...nearly half of the palette is more or less a green color.

```{r}
require(pals)
op=par(mar=c(0,5,3,1))
labs=c('alphabet','alphabet2', 'glasbey','kelly','polychrome', 'stepped', 'stepped2', 'stepped3', 'tol', 'trubetskoy','watlington')
pal.bands(alphabet(), alphabet2(), glasbey(), kelly(),
          polychrome(), stepped(), stepped2(), stepped3(),
          tol(), trubetskoy(), 
          watlington(), labels=labs, show.names=FALSE)
par(op)
pal.bands(coolwarm, viridis, parula, n=200)
```

## pal.channels()

Show the amount of red, green, blue, and gray in colors of a palette.  The gray line corresponds to luminosity.

### What to look for:

1. Sequential data should usually be shown with a colormap that is smoothly increasing in lightness, as shown by the gray line.

```{r}
pal.channels(parula, main="parula")
```

## pal.cluster()

Show a palette with hierarchical clustering

The palette colors are converted to LUV coordinates before clustering.

### What to look for:

1. Colors that are visually similar tend to be clustered together.
2. Leaves of the dendrogram should not be at substantially different heights.

```{r}
pal.cluster(alphabet2(), main="alphabet2")
```

## pal.compress()

A few colormaps in the `pals` package are defined with mathematical formulas (e.g. the cubehelix colormap), but most of the colormaps are originally defined as a smooth curve through a seqence of 256 colors. There seems to be no theoretical reason for 256 colors, other than tradition. It is natural to wonder if a smooth curve through fewer colors would be equally sufficient. This function compresses a colormap function down to a small-ish vector of colors that can be passed into `colorRampPalette` to re-create the original palette with a non-noticeable difference.  Most of the palettes in the `pals` package are stored as a compressed sequence of colors.

How effective is `pal.compress`? Compressing all 50 `kovesi.*` colormaps reduced memory from a needlessly wasteful 352000 bytes down to 46000 bytes, a savings of 87%.

In the figure below, the top band is the (mathematically-defined) `cubehelix` colormap function evaluated at 255 colors. These 256 colors are compressed to 17 colors in the `cubebasis` vector (shown in the middle). These 17 colors are passed into the `colorRampPalette` function and expanded to 255 colors shown in the bottom band.  The maximum squared LUV distance between the individual colors in the two bands is only 2.34, which is smaller than the theoretical perceptual difference of roughly 2.5.

```{r}
# smooth palettes are usually easy to compress
p1 <- cubehelix(255)
cubebasis <- pal.compress(cubehelix)
p2 <- colorRampPalette(cubebasis)(255)
pal.bands(p1, cubebasis, p2,
  labels=c('cubehelix(255)', 'cubebasis','expanded'), main="compression of cubehelix")
pal.maxdist(p1,p2) # 2.08

```

## pal.csf()

Show a colormap with a Campbell-Robson Contrast Sensitivity Chart.

In a contrast sensitivity figure as drawn by this function, the 
spatial frequency increases from left to right and the contrast decreases
from bottom to top.  The bars in the figure appear taller in the middle 
of the image than at the edges, creating an upside-down "U" shape, which 
is the "contrast sensitivity function". 
Your perception of this curve depends on the viewing distance.

### What to look for:

1. Are the vertical bands visible across the full vertical axis?
2. Do the vertical bands blur together along the right side?

```{r}
pal.csf(parula, main="parula")
```

## pal.cube()

The palette is converted to RGB or LUV coordinates
and plotted in a three-dimensional scatterplot.
The LUV space is probably better, but it is easier to tweak colors by
hand in RGB space.

### What to look for:

1. A good palette has colors that are spread somewhat uniformly in 3D.

```{r}
#pal.cube(cubehelix)
#pal.cube(polychrome())
```

![cubehelix](cubehelix.png)
![polychrome](polychrome.png)

## pal.heatmap()

A random heatmap is generated (with 5% missing values) and a key is added to the heatmap by appending a blank column along the right side and then a column with the palette colors.

### What to look for:

1. Can the value of each cell be correctly inferred using the key on the right side?
2. Can missing values be identified?

The graphic below shows that the `alphabet2` palette is dominated by red/pink/purple colors.

```{r}
op <- par(mfrow=c(1,2), mar=c(1,1,2,2))
pal.heatmap(alphabet, n=26, main="alphabet")
pal.heatmap(alphabet2, n=26, main="alphabet2")
par(op)
```

## pal.heatmap2()

Display multiple palettes on a heatmap (similar to the ColorBrewer website).

### What to look for:

1. Are the large regions distinct from each other?
2. Are rectangular outlines visible?
3. Are outliers identifiable within each region?
4. Are colors identifiable in the complex area (left) part of the map?
5. Are missing values visible?

In the example below, the `tol.groundcover` palette has several shades of green that are nearly indistinguishable.

```{r}
pal.heatmap2(watlington(16), tol.groundcover(14), brewer.rdylbu(11),
  nc=6, nr=20,
  labels=c("watlington","tol.groundcover","brewer.rdylbu"))
```

## pal.map()

Display a palette on a choropleth map similar to the ColorBrewer website.

### What to look for:

1. Are regions distinct from each other?
2. Are county outlines visible?
3. Are outliers identifiable within each region?
4. Are colors identifiable in the complex area (lower left) part of the map?

```{r}
pal.map(brewer.paired, n=12, main="brewer.paired")
```

## pal.safe()

A single palette/colormap is shown as five colored bands:

1. Without any modifications.
2. As seen in black-and-white as if photocopied.
3. As seen by the deutan color-blind.
4. As seen by the protan color-blind.
5. As seen by the tritan color-blind.

### What to look for:

1. Are colors still unique when viewed in less-than full color? 
2. Is a sequential colormap still sequential?

```{r}
pal.safe(parula, main="parula")
```

## pal.scatter()

Show a colormap with a scatterplot

### What to look for:

1. Can the colors of each point be uniquely identified?

```{r}
pal.scatter(polychrome, n=36, main="alphabet")
```

## pal.sineramp()

The test image shows a sine wave superimposed on a ramp of the palette.  The amplitude of the sine wave is dampened/modulated from full at the top of the image to 0 at the bottom.

### What to look for:

1. Along the top edge, is the sine wave equally visible across the entire image?
2. Along the bottom edge, is the ramp smooth, or are there vertical bands?

```{r}
pal.sineramp(parula, main="parula")
```

In the example below, the `jet` colormap fails both tests, the `tol.rainbow` colormap fails to clearly show the sinewave in the green/orange region.
```{r}
op <- par(mfrow=c(3,1), mar=c(1,1,2,1))
pal.sineramp(jet, main="jet")
pal.sineramp(tol.rainbow, main="tol.rainbow")
pal.sineramp(kovesi.rainbow, main="kovesi.rainbow")
par(op)
```

## pal.test()

This function combines several other functions into a single test image.

### What to look for:

1. Are all squares (especially upper left and lower right) in the Z-curve distinct?
2. Are the contrast sensitivity function bands visible?
3. Is the sinewave showing bands of similar height, and smoothly varying along the bottom?
4. Is the actual peak of the volcano identifiable? The lowest area?
5. Is the gray/luminosity channel monotonic?

The examples below show the poor performance of the 'viridis' colormap in dark regions.

The 'parula' palette shows more structure in the peak of the volcano.


```{r}
pal.test(parula)
pal.test(viridis) # dark colors are poor
```

## pal.volcano()

Some palettes with dark colors at one end of the palette hide the shape of the volcano in the dark colors.

### What to look for:

1. Can you locate the exact position of the highest point on the volcano?
2. Are the upper-right and lower-right corners the same elevation?
3. Do any Mach bands circle the peak?

```{r}
pal.volcano(parula)
pal.volcano(viridis)
```

## pal.zcurve()

Show a Z-order curve, coloring cells with a colormap. 
The difference in color between squares side-by-side is 1/48 of the full range.
The difference in color between one square atop another is 1/96 the full range.

### What to look for:
 
1. A good color palette of 64 colors should be able to resolve 4 sub-squares 
within each of the 16 squares. 

```{r}
pal.zcurve(parula, main="parula")
```

# Using palettes with ggplot2

To use any colormap with the `ggplot2` package, use the `ggplot2::scale_fill_gradientn()` function.

```{r}
require(ggplot2)
require(pals)
require(reshape2)
ggplot(melt(volcano), aes(x=Var1, y=Var2, fill=value)) + 
  geom_tile() + 
  scale_fill_gradientn(colours=coolwarm(100), guide = "colourbar")
```

# Catalog of colormaps and palettes

The following images show bands for all the colormaps and palettes in the `pals` package, grouped in 

```{r}
# Discrete
pal.bands(alphabet, alphabet2, cols25, glasbey, kelly, okabe, polychrome, stepped, stepped2, stepped3, tol, watlington,
          main="Discrete", show.names=FALSE)


# Misc
pal.bands(coolwarm,warmcool,cubehelix,gnuplot,jet,parula,tol.rainbow,cividis)


# Niccoli
pal.bands(cubicyf,cubicl,isol,linearl,linearlhot,
          main="Niccoli")


# Qualtitative
pal.bands(brewer.accent(8), brewer.dark2(8), brewer.paired(12), brewer.pastel1(9),
          brewer.pastel2(8), brewer.set1(9), brewer.set2(8), brewer.set3(10),
          labels=c("brewer.accent", "brewer.dark2", "brewer.paired", "brewer.pastel1",
                   "brewer.pastel2", "brewer.set1", "brewer.set2", "brewer.set3"),
          main="Brewer qualitative")


# Sequential
pal.bands(brewer.blues, brewer.bugn, brewer.bupu, brewer.gnbu, brewer.greens,
          brewer.greys, brewer.oranges, brewer.orrd, brewer.pubu, brewer.pubugn,
          brewer.purd, brewer.purples, brewer.rdpu, brewer.reds, brewer.ylgn,
          brewer.ylgnbu, brewer.ylorbr, brewer.ylorrd,
          main="Brewer sequential")


# Diverging
pal.bands(brewer.brbg, brewer.piyg, brewer.prgn, brewer.puor, brewer.rdbu,
          brewer.rdgy, brewer.rdylbu, brewer.rdylgn, brewer.spectral,
          main="Brewer diverging")


# Ocean
pal.bands(ocean.thermal, ocean.haline, ocean.solar, ocean.ice, ocean.gray,
          ocean.oxy, ocean.deep, ocean.dense, ocean.algae, ocean.matter,
          ocean.turbid, ocean.speed, ocean.amp, ocean.tempo, ocean.phase,
          ocean.balance, ocean.delta, ocean.curl, main="Ocean")


# Matplotlib
pal.bands(magma, inferno, plasma, viridis, main="Matplotlib")


# Kovesi
op = par(mar=c(1,10,2,1))
pal.bands(kovesi.cyclic_grey_15_85_c0, kovesi.cyclic_grey_15_85_c0_s25,
kovesi.cyclic_mrybm_35_75_c68, kovesi.cyclic_mrybm_35_75_c68_s25,
kovesi.cyclic_mygbm_30_95_c78, kovesi.cyclic_mygbm_30_95_c78_s25,
kovesi.cyclic_wrwbw_40_90_c42, kovesi.cyclic_wrwbw_40_90_c42_s25,
kovesi.diverging_isoluminant_cjm_75_c23, kovesi.diverging_isoluminant_cjm_75_c24,
kovesi.diverging_isoluminant_cjo_70_c25, kovesi.diverging_linear_bjr_30_55_c53,
kovesi.diverging_linear_bjy_30_90_c45, kovesi.diverging_rainbow_bgymr_45_85_c67,
kovesi.diverging_bkr_55_10_c35, kovesi.diverging_bky_60_10_c30,
kovesi.diverging_bwr_40_95_c42, kovesi.diverging_bwr_55_98_c37,
kovesi.diverging_cwm_80_100_c22, kovesi.diverging_gkr_60_10_c40,
kovesi.diverging_gwr_55_95_c38, kovesi.diverging_gwv_55_95_c39,
kovesi.isoluminant_cgo_70_c39, kovesi.isoluminant_cgo_80_c38,
kovesi.isoluminant_cm_70_c39, kovesi.rainbow_bgyr_35_85_c72, kovesi.rainbow_bgyr_35_85_c73,
kovesi.rainbow_bgyrm_35_85_c69, kovesi.rainbow_bgyrm_35_85_c71,
main="Kovesi")

pal.bands(kovesi.linear_bgy_10_95_c74,
kovesi.linear_bgyw_15_100_c67, kovesi.linear_bgyw_15_100_c68,
kovesi.linear_blue_5_95_c73, kovesi.linear_blue_95_50_c20,
kovesi.linear_bmw_5_95_c86, kovesi.linear_bmw_5_95_c89,
kovesi.linear_bmy_10_95_c71, kovesi.linear_bmy_10_95_c78,
kovesi.linear_gow_60_85_c27, kovesi.linear_gow_65_90_c35,
kovesi.linear_green_5_95_c69, kovesi.linear_grey_0_100_c0,
kovesi.linear_grey_10_95_c0, kovesi.linear_kry_5_95_c72,
kovesi.linear_kry_5_98_c75, kovesi.linear_kryw_5_100_c64,
kovesi.linear_kryw_5_100_c67, kovesi.linear_ternary_blue_0_44_c57,
kovesi.linear_ternary_green_0_46_c42, kovesi.linear_ternary_red_0_50_c52,
main="Kovesi linear"
)
par(op)


# Bivariate
bivcol <- function(pal, nx=3, ny=3){
  tit <- substitute(pal)
  if(is.function(pal)) pal <- pal()
  ncol <- length(pal)
  if(missing(nx)) nx <- sqrt(ncol)
  if(missing(ny)) ny <- nx
  image(matrix(1:ncol, nrow=ny), axes=FALSE, col=pal)
  mtext(tit)
}

op <- par(mfrow=c(4,4), mar=c(1,1,2,1))
bivcol(arc.bluepink)
bivcol(brewer.divbin, nx=3)
bivcol(brewer.divdiv)
bivcol(brewer.divseq)
bivcol(brewer.qualbin, nx=3)
bivcol(brewer.qualseq)
bivcol(brewer.seqseq1)
bivcol(brewer.seqseq2)
bivcol(census.blueyellow)
bivcol(stevens.bluered)
bivcol(stevens.greenblue)
bivcol(stevens.pinkblue)
bivcol(stevens.pinkgreen)
bivcol(stevens.purplegold)
bivcol(tolochko.redblue)
bivcol(vsup.redblue, nx=8)
par(op)

```
