R/plot_colors.R

In helske/seqHMM: Mixture Hidden Markov Models for Social Sequence Data and Other Multivariate, Multichannel Categorical Time Series

#' 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
  )
}