match2table: Match Colors to Factors in a pal2table object

In pmartinezarbizu/dada2pp: Miscelaneous Functions for Post-Processing dada2 Results.

Match Colors to Factors in a pal2table object

Description

Creates a vector fo colors or symbols matching the factors in a table created by pal2table

Usage

match2table(x, table, obj = c("col", "pch", "pch2"))

Arguments

x	A vector of observations to be plotted containing (at least some of) the factors in table
table	An object created by pal2table. The data frame containing factors, colors and symbols
obj	The column to be used for. One of 'col' for colors, 'pch' for symbols, 'pch2' for second set of symbols.

Details

Aim of the the functions pal2table and match2table is to provide an easy framework for assigning same colors and symbols for same factors in different plots. Matching colors and symbols to factors is complicated when different graphs do not have the same factors in same order. pal2table will create a data frame assigning colors and symbols to factors. An object of type pal2table is created that will be interpreted by match2table. The later function can be used to create a vector of colors and symbols to be used by plot graphical parameters col, bg, fg, or pch. The function will assign the colors and symbols matching the name of factors in the data frame to the provided vector of names. match2table is a wrapper of function match. Note that you need to coerce col column to a vector if you want to use it directly from the pal2table object. See the legend example with iris below.

Author(s)

Pedro Martinez Arbizu

See Also

pal2table

Examples

data(iris)
irc <- pal2table(iris$Species)
plot(irc)

#example with iris data
col <- match2table(iris$Species,irc,'col')
pch <- match2table(iris$Species,irc,'pch')
pch2 <- match2table(iris$Species,irc,'pch2')

#add space below graph
par(oma = c(2, 0, 0, 0),xpd=NA)
plot(iris[,1],iris[,3],pch=pch,bg=col,cex=2,xlab='Sepal length',ylab='Petal length')
legend(min(iris[,1]), min(iris[,3])-2,bty='n',ncol=3, pt.cex=1.5, legend=irc$class,pch=irc$pch2, col=as.vector(irc$col))
legend(min(iris[,1]), min(iris[,3])-2,bty='n',ncol=3, pt.cex=1.5, legend=irc$class,pch=irc$pch)

#example with barplot
barplot(as.matrix(iris[,-c(5)]),col=col,border=NA)

pmartinezarbizu/dada2pp documentation built on Feb. 7, 2024, 7:01 a.m.