R/tcsplot.R
, R/tcspoints.R
, R/tcsvol.R
tcsplot.Rd
Produces an interactive 3D plot of a tetrahedral colourspace using OpenGL capabilities.
Plots points in a tetrahedral colour space
tcsplot( tcsdata, size = 0.02, alpha = 1, col = "black", vertexsize = 0.02, achro = TRUE, achrosize = 0.01, achrocol = "grey", lwd = 1, lcol = "lightgrey", new = FALSE, hspin = FALSE, vspin = FALSE, floor = TRUE, gamut = FALSE ) tcspoints(tcsdata, size = 0.02, col = "black", alpha = 1) tcsvol( tcsdata, type = c("convex", "alpha"), avalue = "auto", col = "black", alpha = 0.2, grid.alpha = 1, grid = TRUE, fill = TRUE, lwd = 1 )
tcsdata | (required) a data frame, possibly a result from the
|
---|---|
size | size of the points in the plot (defaults to 0.02) |
alpha | transparency of points (or volume fill in |
col | colour of the points in the plot (defaults to black) |
vertexsize | size of the points at the vertices |
achro | should a point be plotted at the origin (defaults to |
achrosize | size of the point at the origin when |
achrocol | color of the point at the origin |
lwd, lcol | graphical parameters for the edges of the tetrahedron. |
new | should a new 3D plot be called (defaults to |
hspin | if |
vspin | if |
floor | if |
gamut | logical. Should the polygon showing the possible colours given
visual system and illuminant used in the analysis (defaults to |
type | accepts a vector of length 1 or 2 with 'p' for points and/or 'l' for lines from the point to the base of the tetrahedron. |
avalue | if |
grid.alpha | transparency of the volume polygon grid lines |
grid | if |
fill | if |
tcsplot()
creates a 3D plot using functions of the package rgl,
based on openGL capabilities. Plot is interactive and can be manipulated with the mouse
(left button: rotate along 'z' axis; right button: rotate along 'x' axis;
third button: zoom).
tcspoints()
adds points to the plot. Points are currently plotted
only as spheres to maintain export capabilities.
tcsvol()
creates a 3D colour volume within a tcsplot
object.
Stoddard, M. C., & Prum, R. O. (2008). Evolution of avian plumage color in a tetrahedral color space: A phylogenetic analysis of new world buntings. The American Naturalist, 171(6), 755-776.
Endler, J. A., & Mielke, P. (2005). Comparing entire colour patterns as birds see them. Biological Journal Of The Linnean Society, 86(4), 405-431.
Rafael Maia rm72@zips.uakron.edu
if (interactive()) { # For plotting data(sicalis) vis.sicalis <- vismodel(sicalis, visual = "avg.uv") tcs.sicalis <- colspace(vis.sicalis, space = "tcs") tcsplot(tcs.sicalis, size = 0.005) rgl::rgl.postscript("testplot.pdf", fmt = "pdf") rgl::rgl.snapshot("testplot.png") # For adding points patch <- rep(c("C", "T", "B"), 7) tcs.crown <- subset(tcs.sicalis, "C") tcs.breast <- subset(tcs.sicalis, "B") tcsplot(tcs.crown, col = "blue") tcspoints(tcs.breast, col = "red") # For plotting convex hull tcsplot(tcs.sicalis, col = "blue", size = 0.005) tcsvol(tcs.sicalis) }