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