Buck9195/shared_Rscripts
1
0
Fork 0
mirror of https://github.com/dchakro/shared_Rscripts.git synced 2026-05-18 09:14:44 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions

hotfix: sample the color vector properly

Browse source
This commit is contained in:
dchakro 2023-07-27 13:38:21 -07:00
parent 79a0f8f9e9
commit 340dc08c36
1 changed files with 29 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

58
returnPalette.R
View file

@ -1,21 +1,21 @@
returnPalette <- function(ColorVariable = NULL) { returnPalette <- function(ColorVariable = NULL) {
# #<----------------------------> # #<---------------------------->
# # You must include this section when: # # You must include this section when:
# # Distributing, Using and/or Modifying this code. # # Distributing, Using and/or Modifying this code.
# # Please read and abide by the terms of the included LICENSE. # # Please read and abide by the terms of the included LICENSE.
# # Copyright 2023, Deepankar Chakroborty, All rights reserved. # # Copyright 2023, Deepankar Chakroborty, All rights reserved.
# # # #
# # Author : Deepankar Chakroborty (https://github.com/dchakro) # # Author : Deepankar Chakroborty (https://github.com/dchakro)
# # Website: https://www.dchakro.com # # Website: https://www.dchakro.com
# # Report issues: https://github.com/dchakro/shared_Rscripts/issues # # Report issues: https://github.com/dchakro/shared_Rscripts/issues
# # License: https://github.com/dchakro/shared_Rscripts/blob/master/LICENSE # # License: https://github.com/dchakro/shared_Rscripts/blob/master/LICENSE
# #<----------------------------> # #<---------------------------->
# # PURPOSE: # # PURPOSE:
# # Generates an appropriate palette for categorical data based on its length # # Generates an appropriate palette for categorical data based on its length
if (class(ColorVariable) == "character") { if (class(ColorVariable) == "character") {
colorsNeeded <- length(unique(ColorVariable)) colorsNeeded <- length(unique(ColorVariable))
if (colorsNeeded < 1) { if (colorsNeeded < 1) {
@ -27,12 +27,12 @@ returnPalette <- function(ColorVariable = NULL) {
palette = "Classic Tableau") palette = "Classic Tableau")
} else if (colorsNeeded > 10 & colorsNeeded < 18) { } else if (colorsNeeded > 10 & colorsNeeded < 18) {
set.seed(2023) set.seed(2023)
myPalette <- sample( myPalette <- c(palette.colors(n = 10,
palette.colors(n = 10, palette = "Classic Tableau"),
palette = "Classic Tableau"), palette.colors(n = colorsNeeded - 10,
palette.colors(n = colorsNeeded - 10, palette = "Set2"))
palette = "Set2") set.seed(2023)
) myPalette <- sample(myPalette)
} else if (colorsNeeded > 18) { } else if (colorsNeeded > 18) {
myPalette <- sample(hcl.colors(n = colorsNeeded, myPalette <- sample(hcl.colors(n = colorsNeeded,
palette = "Spectral")) palette = "Spectral"))
@ -49,12 +49,12 @@ returnPalette <- function(ColorVariable = NULL) {
palette = "Classic Tableau") palette = "Classic Tableau")
} else if (colorsNeeded > 10 & colorsNeeded < 18) { } else if (colorsNeeded > 10 & colorsNeeded < 18) {
set.seed(2023) set.seed(2023)
myPalette <- sample( myPalette <- c(palette.colors(n = 10,
palette.colors(n = 10, palette = "Classic Tableau"),
palette = "Classic Tableau"), palette.colors(n = colorsNeeded - 10,
palette.colors(n = colorsNeeded - 10, palette = "Set2"))
palette = "Set2") set.seed(2023)
) myPalette <- sample(myPalette)
} else if (colorsNeeded > 18) { } else if (colorsNeeded > 18) {
myPalette <- sample(hcl.colors(n = colorsNeeded, myPalette <- sample(hcl.colors(n = colorsNeeded,
palette = "Spectral")) palette = "Spectral"))