harrypotter (version 2.0.0)

hpMap: Harry Potter Colour Map.

Description

This function creates a vector of n equally spaced colors along the 'HP colour map' created by an average calculated for all the colours present in every frame of the pictures.

Usage

hpMap(n = 256, alpha = 1, begin = 0, end = 1, direction = 1,
  house = "hufflepuff")
hp(n, alpha = 1, begin = 0, end = 1, direction = 1,
  house = "hufflepuff")
hp_pal(alpha = 1, begin = 0, end = 1, direction = 1,
  house = "hufflepuff")
harrypotter(n, alpha = 1, begin = 0, end = 1, direction = 1,
  house = "hufflepuff")

Arguments

n

The number of colors ($\ge 1$) to be in the palette.

alpha

The alpha transparency, a number in [0,1], see argument alpha in hsv.

begin

The (corrected) hue in [0,1] at which the hp colormap begins.

end

The (corrected) hue in [0,1] at which the hp colormap ends.

direction

Sets the order of colors in the scale. If 1, the default, colors are ordered from darkest to lightest. If -1, the order of colors is reversed.

house

A character string indicating the colourmap from a house to use. Four houses are available: "Gryffindor", "Slytherin", "Ravenclaw" and "Hufflepuff".

Value

hp returns a character vector, cv, of color hex codes. This can be used either to create a user-defined color palette for subsequent graphics by palette(cv), a col = specification in graphics functions or in par.

hpMap returns a n lines data frame containing the red (R), green (G), blue (B) and alpha (alpha) channels of n equally spaced colors along the 'Harry Potter' colour map. n = 256 by default.

Details

Here are the color scales:

Semi-transparent colors ($0<alpha<1$) are supported only on some devices: see rgb.

Examples

# NOT RUN {
library(ggplot2)
library(hexbin)

dat <- data.frame(x = rnorm(10000), y = rnorm(10000))

ggplot(dat, aes(x = x, y = y)) +
  geom_hex() + coord_fixed() +
  scale_fill_gradientn(colours = hp(256, house = "Hufflepuff"))

# using code from RColorBrewer to demo the palette
n = 200
image(
  1:n, 1, as.matrix(1:n),
  col = hp(n, house = "Slytherin"),
  xlab = "hp n", ylab = "", xaxt = "n", yaxt = "n", bty = "n"
)

# }