ggplot2 — scale_colour_stratigraphy" />

Provides the geologic timescale colour scheme.

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

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")