Mixed Font Labels for Plotting
This function helps to format labels with bits of text in different font shapes (italics, bold, or bolditalics) and different separators. The output is intended to be used for plotting.
mixedFontLabel(..., sep = " ", italic = NULL, bold = NULL, parenthesis = NULL, always.upright = c("sp.", "spp.", "ssp."))
The idea is to have different bits of text in different vectors that
are put together to make a vector of Rexpressions. This vector is
interpreted by graphical functions to format the text. A simple use
mixedFontLabel(genus, species), italic = 1:2, but it is
more interesting when mixing fonts (see examples).
To have an element in bolditalics, its number must given in both
The vector returned by this function may be assigned as the
tip.label element of a tree of class
"phylo", or even as
A vector of mode expression.
tr <- read.tree(text = "((a,(b,c)),d);") genus <- c("Gorilla", "Pan", "Homo", "Pongo") species <- c("gorilla", "spp.", "sapiens", "pygmaeus") geo <- c("Africa", "Africa", "World", "Asia") tr$tip.label <- mixedFontLabel(genus, species, geo, italic = 1:2, parenthesis = 3) layout(matrix(c(1, 2), 2)) plot(tr) tr$tip.label <- mixedFontLabel(genus, species, geo, sep = c("", "| "), italic = 1:2, bold = 3) plot(tr) layout(1)