R/ggPlotColours.R

In alexthiery/scHelper: R package containing helper functions for single cell analysis

#' Function to access default ggpplot colours used by Seurat DimPlot
#' @export
ggPlotColours <- function(n = 6, 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)
}