R/pal-linetype.R

In scales: Scale Functions for Visualization

#' Line type palette (discrete)
#'
#' Based on a set supplied by Richard Pearson, University of Manchester
#'
#' @export
pal_linetype <- function() {
  types <- c(
    "solid", "22", "42", "44", "13", "1343", "73", "2262",
    "12223242", "F282", "F4448444", "224282F2", "F1"
  )

  function(n) {
    types[seq_len(n)]
  }
}

#' @export
#' @rdname pal_linetype
linetype_pal <- pal_linetype