panel.cartesian | R Documentation |
trellis panel function, with labeled rows and columns and without strip labels. Designed for use with the ladder of powers plot.
panel.cartesian(x, y, x.label=unique(panel.labels[,"x"]), y.label=unique(panel.labels[,"y"]), group.label.side="", axis3.line=1, xg.label, yg.label, g.cex=.7, rescale=list(x=TRUE,y=TRUE), ..., browser.on=FALSE)
x, y |
x and y as for any other panel function |
x.label |
labels for the columns of the scatterplot matrix |
y.label |
labels for the rows of the scatterplot matrix |
axis3.line |
The |
group.label.side |
|
xg.label |
group labels for rows of the scatterplot matrix |
yg.label |
group labels for rows of the scatterplot matrix |
g.cex |
|
rescale |
alternate way to get something similar to |
... |
other arguments |
browser.on |
logical, normally |
Heiberger, Richard M. and Holland, Burt (2015). Statistical Analysis and Data Display: An Intermediate Course with Examples in R. Second Edition. Springer-Verlag, New York. https://link.springer.com/book/10.1007/978-1-4939-2122-5
ladder
, xysplom
data(rent) ## Weisberg's file alr162 rent.lm <- lm(rnt.alf ~ rnt.till + cow.dens + lime, data=rent) rent$resid.rent <- resid(rent.lm) xysplom(resid.rent ~ rnt.till + cow.dens | lime, data=rent, layout=c(2,2)) xysplom(resid.rent ~ rnt.till + cow.dens | lime, data=rent, layout=c(2,2), xlab="", ylab="", x.label="", y.label="", group.label.side="", par.strip.text=list(cex=1.2), panel=panel.cartesian, axis3.line=2.4, scales=list( relation="same", alternating=FALSE, labels=FALSE, ticks=FALSE), between=list(x=1, y=3)) xysplom(resid.rent ~ rnt.till + cow.dens | lime, data=rent, layout=c(2,2), xlab="", ylab="", x.label="", y.label="", group.label.side="", par.strip.text=list(cex=1.2), panel=panel.cartesian, axis3.line=3.6, scales=list( relation="same", alternating=FALSE, labels=FALSE, ticks=FALSE), rescale=list(x=FALSE, y=FALSE), between=list(x=1, y=3)) xysplom(resid.rent ~ rnt.till + cow.dens | lime, data=rent, layout=c(2,2), xlab="", ylab="", x.label="", y.label="", group.label.side="", par.strip.text=list(cex=1.2), panel=panel.cartesian, axis3.line=3.6, scales=list( relation="free", alternating=FALSE, labels=FALSE, ticks=FALSE), between=list(x=1, y=3)) tmp <- xysplom(resid.rent ~ rnt.till + cow.dens | lime, data=rent, layout=c(2,2), xlab="", ylab="", y.label="resid", group.label.side="top", par.strip.text=list(cex=1.2), panel=panel.cartesian, axis3.line=3.6, scales=list(alternating=FALSE, labels=FALSE, ticks=FALSE), rescale=list(x=FALSE, y=FALSE), between=list(x=4, y=5)) if.R(r=tmp$par.settings <- list(layout.widths=list(right.padding=4)), s={}) tmp
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.