Nothing
#' Plot Colorpalettes
#'
#' Function \code{plot_colors} plots colors and their labels for easy
#' visualization of a colorpalette.
#'
#' @export
#'
#' @param x A vector of colors.
#' @param labels A vector of labels for colors. If omitted, given color names are used.
#'
#' @seealso See e.g. the \code{\link{colorpalette}} data and \code{RColorBrewer}
#' package for ready-made color palettes.
#'
#' @examples
#' plot_colors(colorpalette[[5]], labels = c("one", "two", "three", "four", "five"))
#'
#' plot_colors(colorpalette[[10]])
#'
#' plot_colors(1:7)
#'
#' plot_colors(c("yellow", "orange", "red", "purple", "blue", "green"))
#'
#' plot_colors(rainbow(15))
plot_colors <- function(x, labels = NULL) {
if (!all(isColor(x))) {
stop("Please provide a vector of colors.")
}
if (is.null(labels)) {
labels <- rev(x)
} else if (length(x) != length(labels)) {
warning("The length of the vector of labels does not match the length of the vector of colors. Labels were not used.")
labels <- rev(x)
} else {
labels <- rev(labels)
}
par(mai = c(0.1, max(strwidth(x, "inch") + 0.4, na.rm = TRUE), 0.1, 0.4))
barplot(rep(1, length(x)),
col = rev(x), space = 0.2, axes = FALSE,
names.arg = labels, cex.names = 0.8, horiz = TRUE, las = 1
)
}
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.