data-raw/taxa.color.R

In Fuschi/JAX: What the Package Does (One Line, Title Case)

#Color Nodes Taxonomy HMP2
#---------------------------------------------------------#
require(qualpalr)

taxa.color.HMP2.16S <- list()
taxa.color.HMP2.16S$phylum <- rownames(qualpal(n = length(unique(taxa.otu.HMP2.16S[,"phylum"])),
											   colorspace = list(h=c(0,360),s=c(0,1),l=c(.5,1)))$RGB)
names(taxa.color.HMP2.16S$phylum) <- unique(taxa.otu.HMP2.16S[,"phylum"])
taxa.color.HMP2.16S$class  <- rownames(qualpal(n = length(unique(taxa.otu.HMP2.16S[,"class"])),
											   colorspace = list(h=c(0,360),s=c(0,1),l=c(.5,1)))$RGB)
names(taxa.color.HMP2.16S$class)  <- unique(taxa.otu.HMP2.16S[,"class"])
taxa.color.HMP2.16S$order  <- rownames(qualpal(n = length(unique(taxa.otu.HMP2.16S[,"order"])),
											   colorspace = list(h=c(0,360),s=c(0,1),l=c(.5,1)))$RGB)
names(taxa.color.HMP2.16S$order)  <- unique(taxa.otu.HMP2.16S[,"order"])
taxa.color.HMP2.16S$family <- rownames(qualpal(n = length(unique(taxa.otu.HMP2.16S[,"family"])),
											   colorspace = list(h=c(0,360),s=c(0,1),l=c(.5,1)))$RGB)
names(taxa.color.HMP2.16S$family)  <- unique(taxa.otu.HMP2.16S[,"family"])

usethis::use_data(taxa.color.HMP2.16S, overwrite = TRUE)









#Color Nodes Taxonomy 2DG 16S
#---------------------------------------------------------#
require(qualpalr)

taxa.color.2DG.16S <- list()
taxa.color.2DG.16S$phylum <- rownames(qualpal(n = length(unique(taxa.otu.2DG.16S[,"phylum"])),
											  colorspace = list(h=c(0,360),s=c(0,1),l=c(.5,1)))$RGB)
names(taxa.color.2DG.16S$phylum) <- unique(taxa.otu.2DG.16S[,"phylum"])
taxa.color.2DG.16S$class  <- rownames(qualpal(n = length(unique(taxa.otu.2DG.16S[,"class"])),
											  colorspace = list(h=c(0,360),s=c(0,1),l=c(.5,1)))$RGB)
names(taxa.color.2DG.16S$class)  <- unique(taxa.otu.2DG.16S[,"class"])
taxa.color.2DG.16S$order  <- rownames(qualpal(n = length(unique(taxa.otu.2DG.16S[,"order"])),
											  colorspace = list(h=c(0,360),s=c(0,1),l=c(.5,1)))$RGB)
names(taxa.color.2DG.16S$order)  <- unique(taxa.otu.2DG.16S[,"order"])
taxa.color.2DG.16S$family <- rownames(qualpal(n = length(unique(taxa.otu.2DG.16S[,"family"])),
											  colorspace = list(h=c(0,360),s=c(0,1),l=c(.5,1)))$RGB)
names(taxa.color.2DG.16S$family)  <- unique(taxa.otu.2DG.16S[,"family"])
taxa.color.2DG.16S$genus <- rownames(qualpal(n = length(unique(taxa.otu.2DG.16S[,"genus"])),
											 colorspace = list(h=c(0,360),s=c(0,1),l=c(.5,1)))$RGB)
names(taxa.color.2DG.16S$genus)  <- unique(taxa.otu.2DG.16S[,"genus"])


usethis::use_data(taxa.color.2DG.16S, overwrite = TRUE)



#Color Nodes Taxonomy 2DG WGS
#---------------------------------------------------------#
require(qualpalr)

taxa.color.2DG.WGS <- list()
taxa.color.2DG.WGS$phylum <- rownames(qualpal(n = length(unique(taxa.2DG.WGS[,"phylum"])),
											  colorspace = list(h=c(0,360),s=c(0,1),l=c(.5,1)))$RGB)
names(taxa.color.2DG.WGS$phylum) <- unique(taxa.2DG.WGS[,"phylum"])
taxa.color.2DG.WGS$class  <- rownames(qualpal(n = length(unique(taxa.2DG.WGS[,"class"])),
											  colorspace = list(h=c(0,360),s=c(0,1),l=c(.5,1)))$RGB)
names(taxa.color.2DG.WGS$class)  <- unique(taxa.2DG.WGS[,"class"])


usethis::use_data(taxa.color.2DG.WGS, overwrite = TRUE)



#Color Nodes Taxonomy 2DG WGS
#---------------------------------------------------------#
domain.shape.2DG.WGS <- c("circle", "rectangle", "square", "sphere")
names(domain.shape.2DG.WGS) <- unique(taxa.2DG.WGS$domain)
usethis::use_data(domain.shape.2DG.WGS, overwrite = TRUE)