Last chance! 50% off unlimited learning
Sale ends in
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 and y as for any other panel function
labels for the columns of the scatterplot matrix
labels for the rows of the scatterplot matrix
The x.label
doesn't always show up in the
right place. This allows the user to adjust it's position.
c("","left","top")
, when the plotting
formula is conditioned on a group factor, the levels of the group are
displayed in the margins of the plot. The appearance depends on the
setting of the trellis between
argument. Getting it to look good
for any given plot requires experimentation. Since it is redundant with
the information in the strip labels, leaving it at the default ""
is often the best thing to do.
group labels for rows of the scatterplot matrix
group labels for rows of the scatterplot matrix
cex
for the group labels
alternate way to get something similar to relation="free"
other arguments
logical, normally FALSE
. This is a debugging
tool. When TRUE
, the browser()
is turned on at various
critical points.
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/us/book/9781493921218
# NOT RUN {
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
# }
Run the code above in your browser using DataLab