Ternary plot with labels
triangle.label.Rd
This function represents a three dimensional scatter plot with labels.
Usage
triangle.label(dfxyz, labels = rownames(dfxyz), adjust = TRUE, min3d = NULL,
max3d = NULL, addaxes = FALSE, addmean = FALSE, meanpar = NULL, axespar = NULL,
showposition = TRUE, facets = NULL, plot = TRUE, storeData = TRUE, add = FALSE,
pos = -1, ...)
Arguments
- dfxyz
a three columns data frame used to produce the plot
- labels
a character vector containing labels for points
- adjust
a logical to adjust the device with the limits of the smaller equilateral triangle containing the values
- min3d
a vector of three values for triangular minimal limits
- max3d
a vector of three values for triangular maximal limits
- addaxes
a logical to draw the principal axes
- addmean
a logical to plot the mean
- meanpar
a list to represent mean points using
pch
,cex
andcol
- axespar
a list to represent axes lines using
col
,lwd
andlty
- showposition
a logical indicating whether the used triangle should be shown in the complete one
- facets
a factor splitting the rows of
dfxyz
so that subsets of the data are represented on different sub-graphics- plot
a logical indicating if the graphics is displayed
- storeData
a logical indicating if the data are stored in the returned object. If
FALSE
, only the names of the data arguments are stored- add
a logical. If
TRUE
, the graphic is superposed to the graphics already plotted in the current device- pos
an integer indicating the position of the environment where the data are stored, relative to the environment where the function is called. Useful only if
storeData
isFALSE
- ...
additional graphical parameters (see
adegpar
andtrellis.par.get
)
Value
An object of class ADEg
(subclass Tr.label
) or ADEgS
(if showposition
is TRUE,
if add
is TRUE
and/or if facets are used).
The result is displayed if plot
is TRUE
.
Author
Alice Julien-Laferriere, Aurelie Siberchicot aurelie.siberchicot@univ-lyon1.fr and Stephane Dray
Examples
data(euro123, package = "ade4")
df <- rbind.data.frame(euro123$in78, euro123$in86, euro123$in97)
row.names(df) <- paste(row.names(euro123$in78), rep(c(1, 2, 3), rep(12, 3)), sep = "")
g1 <- triangle.label(df, label = row.names(df), showposition = TRUE, plot = FALSE)
g2 <- triangle.label(euro123$in78, plabels.cex = 0, ppoints.cex = 2, addmean = TRUE,
show = FALSE, plot = FALSE)
g3 <- triangle.label(euro123$in86, labels = row.names(euro123$in78), plabels.cex = 0.8,
plot = FALSE)
g4 <- triangle.label(rbind.data.frame(euro123$in78, euro123$in86), plabels.cex = 0.8,
addaxes = TRUE, psub.te = "Principal axis", psub.cex = 1.5, psub.pos = "topright", plot = FALSE)
G <- ADEgS(c(g1, g2, g3, g4), layout = c(2, 2))