Ternary plot with labels
This function represents a three dimensional scatter plot with labels.
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, ...)
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 |
axespar |
a list to represent axes lines using |
showposition |
a logical indicating whether the used triangle should be shown in the complete one |
facets |
a factor splitting the rows of |
plot |
a logical indicating if the graphics is displayed |
storeData |
a logical indicating if the data are stored in
the returned object. If |
add |
a logical. If |
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 |
... |
additional graphical parameters (see
|
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.
Alice Julien-Laferriere, Aurelie Siberchicot aurelie.siberchicot@univ-lyon1.fr and Stephane Dray
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))
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.