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

Add my GNE color palette

Browse source
This commit is contained in:
dchakro 2023-08-04 14:34:18 -07:00
parent bd135563a9
commit 1d6789928e
1 changed files with 16 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

18
returnPalette.R
View file

@ -1,4 +1,4 @@
returnPalette <- function(ColorVariable = NULL) { returnPalette <- function(ColorVariable = NULL, GNE.colors = F) {
# #<----------------------------> # #<---------------------------->
# # 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.
@ -22,7 +22,21 @@ returnPalette <- function(ColorVariable = NULL) {
myPalette <- c("#DD0000") myPalette <- c("#DD0000")
warning("Nothing to return color for.") warning("Nothing to return color for.")
} }
if (colorsNeeded > 1 & colorsNeeded < 10) { if (colorsNeeded > 1 & colorsNeeded < 10 & GNE.colors == T) {
myPalette <-
c(
"#003087",
"#C8102E",
"#008C15",
"#FF8200",
"#AF1685",
"#6F3B34",
"#29D991",
"#0B41CD",
"#8F2257",
"#00A3E0"
)[1:colorsNeeded]
} else if (colorsNeeded > 1 & colorsNeeded < 10) {
myPalette <- palette.colors(n = colorsNeeded, myPalette <- palette.colors(n = colorsNeeded,
palette = "Classic Tableau") palette = "Classic Tableau")
} else if (colorsNeeded >= 10 & colorsNeeded < 18) { } else if (colorsNeeded >= 10 & colorsNeeded < 18) {