R/use_colour.R

In kang-yu/lazyu: Lazyman's Utilities: A Collection of R Functions

#' Use the ggplot style colors
#'
#' Create a vector of colors of the ggplot style.
#'
#' @param n An integer to define the number of colors to be generated.
#' @param h A two element vector defining the hue of the color specified for the HCL Color.
#' @seealso \code{\link{hcl}}
#' @examples
#' ggplotColours(3)
#' @export
#' @importFrom grDevices hcl

ggplotColours <- function(n = 1, h = c(0, 360) + 15){
  if ((diff(h) %% 360) < 1)  h[2] <- h[2] - 360/n
  hcl(h = (seq(h[1], h[2], length = n)), c = 100, l = 65)
}