Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup, fig.height=1------------------------------------------------------
library(lisa)
plot(lisa$AndyWarhol_3)
## ---- fig.height = 2, results='hide'------------------------------------------
x <- lapply(1:5, function(x) structure(lisa_palette("AndyWarhol_3", n = x, "continuous"), name = paste0(x, ", continuous")))
y <- lapply(1:5, function(x) structure(lisa_palette("AndyWarhol_3", n = x, "discrete"), name = paste0(x, ", discrete")))
par(mfrow = c(2, 5))
lapply(c(x, y), plot)
## -----------------------------------------------------------------------------
lisa$AndyWarhol_3[1:3]
lisa_palette("AndyWarhol_3", n = 3, type = "discrete")
## ---- error=TRUE--------------------------------------------------------------
lisa_palette("AndyWarhol_3", n = 6, type = "discrete")
## -----------------------------------------------------------------------------
grDevices::colorRampPalette(lisa$AndyWarhol_3)(3)
## -----------------------------------------------------------------------------
ramp <- colorRamp(lisa$AndyWarhol_3)
x <- ramp(seq.int(0, 1, length.out = 3))
if (ncol(x) == 4L) {
rgb(x[, 1L], x[, 2L], x[, 3L], x[, 4L], maxColorValue = 255)
} else {
rgb(x[, 1L], x[, 2L], x[, 3L], maxColorValue = 255)
}
## ---- fig.height=1, results='hide'--------------------------------------------
x <- lisa$AndyWarhol_3
y <- lisa_palette("AndyWarhol_3", 1000, "continuous")
lapply(list(x, y), plot)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.