Superpose two graphics
This function superposes two graphics and extends the graphical constraints of a first graphic to a second one.
superpose(g1, g2, which, plot = FALSE) ## S4 method for signature 'ADEg' e1 + e2
g1 |
an object of class |
g2 |
an object of class |
e1 |
an object of class |
e2 |
an object of class |
which |
if |
plot |
a logical indicating if the graphics is displayed |
The created ADEgS object is a layout of two graphical objects.
Each of the two objects superposed still have its graphical parameters in the created layout.
However, the ADEgS displayed favour the graphical parameters of the object below :
displayed limits, grid, legend and axes are those of g1 (respectively e1) and g2
(respectively e2) has transparent background and labels' boxes.
The superpose method is defined for:
signature(g1 = "ADEgS", g2 = "ADEg", which = "numeric", plot = "logical")
signature(g1 = "ADEgS", g2 = "ADEg", which = "numeric", plot = "ANY")
signature(g1 = "ADEgS", g2 = "ADEg", which = "missing", plot = "ANY"):
If which is missing, the last ADEg of g1@ADEglist is used as the base of superposition. In that case, which = length(g1)
signature(g1 = "ADEgORtrellis", g2 = "ADEgORtrellis", which = "ANY", plot = "ANY"):
If g1 is an ADEg object, no which is needed.
signature(g1 = "ADEgS", g2 = "ADEgS", which = "missing", plot = "ANY")
The + method is defined for:
signature(e1 = "ADEg", e2 = "ADEg"): superpose e2 on e1
signature(e1 = "ADEg", e2 = "ADEgS"): superpose e2 to e1
signature(e1 = "ADEgS", e2 = "ADEg"): calls the + method with signature
(e1 = "ADEg", e2 = "ADEgS").
An object of class "ADEgS".
Alice Julien-Laferriere, Aurelie Siberchicot aurelie.siberchicot@univ-lyon1.fr and Stephane Dray
cha <- LETTERS[1:20] xy <- cbind.data.frame(runif(length(cha)), runif(length(cha))) g1 <- s.label(xy, labels = cha, ppoints.alpha = 0, pbackground.col = "grey85") g2 <- s.label(xy, labels = cha, plabels.cex = 0, paxes.draw = TRUE, ppoints.pch = 4, ppoints.col = "red") g3 <- superpose(g1, g2, plot = TRUE) g4 <- superpose(g2, g1, plot = TRUE) data(jv73, package = "ade4") pca1 <- ade4::dudi.pca(jv73$morpho, scannf = FALSE) g5 <- s.label(pca1$li, plabels.optim = TRUE) g6 <- s.class(pca1$li, jv73$fac.riv, starSize = 0, ellipseSize = 0, chullSize = 1, ppolygons.alpha = 0.4, col = rainbow(12), ppoints.cex = 0) g5 + g6 ## Not run: g7 <- s.label(pca1$li, plabels.optim = TRUE, facets = jv73$fac.riv, plot = FALSE) g8 <- s.class(pca1$li, jv73$fac.riv, facets = jv73$fac.riv, starSize = 0, chullSize = 1, ellipseSize = 0, ppolygons.alpha = 0.4, col = rainbow(12), ppoints.cex = 0, plot = FALSE) g9 <- superpose(g7, g8, plot = TRUE) ## End(Not run)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.