khroma (version 1.3.0)

scale_colour_stratigraphy: Geologic Timescale Colour Scheme for ggplot2

Description

Provides the geologic timescale colour scheme.

Usage

scale_colour_stratigraphy(..., aesthetics = "colour")
scale_color_stratigraphy(..., aesthetics = "colour")
scale_fill_stratigraphy(..., aesthetics = "fill")

Arguments

...

Arguments passed on to discrete_scale.

aesthetics

A character string or vector of character strings listing the name(s) of the aesthetic(s) that this scale works with.

Value

A discrete scale.

Details

Values will be matched based on the unit names.

References

Commission for the Geological Map of the World.

See Also

Other Themed colour schemes: scale_colour_land, scale_colour_soil

Examples

# NOT RUN {
library(ggplot2)

strati <- data.frame(
  name = c("Phanerozoic", "Paleozoic", "Cambrian", "Ordovician", "Silurian",
           "Devonian", "Carboniferous", "Mesozoic", "Triassic", "Cretaceous",
           "Jurassic", "Cenozoic", "Paleogene", "Neogene", "Quaternary"),
  type = c("Eon", "Era", "Period", "Period", "Period", "Period", "Period",
           "Era", "Period", "Period", "Period", "Era", "Period", "Period",
           "Period"),
  start = c(541, 541, 541, 485, 444, 419, 359,
            252, 252, 201, 145, 66, 66, 23, 2.6),
  end = c(0, 252, 485, 444, 419, 359, 252,
          66, 201, 145, 66, 2.6, 23, 2.6, 0)
)

ggplot2::ggplot(strati, ggplot2::aes(fill = name)) +
  ggplot2::geom_rect(aes(xmin = rep(0, 15), xmax = rep(1, 15),
                         ymin = start, ymax = end)) +
  ggplot2::scale_y_reverse() +
  ggplot2::facet_grid(. ~ type) +
  scale_fill_stratigraphy(name = "Stratigraphy")
# }