#' 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
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.