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

16
returnPalette.R
View file

@ -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"))