# NOT RUN {
data(tv)
## default
## R: outer strip labels
## S-Plus: one strip label per panel (too full for this example, see below)
ladder(life.exp ~ ppl.per.phys, data=tv,
main="Ladder of Powers for Life Expectancy and People per Physician")
# }
# NOT RUN {
## one strip label
if.R(r=ladder(life.exp ~ ppl.per.phys, data=tv, strip.number=1, useOuter=FALSE,
dsx="ppp", dsy="le"),
s=ladder(life.exp ~ ppl.per.phys, data=tv, strip.number=1,
dsx="ppp", dsy="le")) ## S-Plus default
## two strip labels
if.R(r=ladder(life.exp ~ ppl.per.phys, data=tv, strip.number=2, useOuter=FALSE),
s=ladder(life.exp ~ ppl.per.phys, data=tv, strip.number=2,
axis3.line=1.2))
## outer strip labels
if.R(r=ladder(life.exp ~ ppl.per.phys, data=tv, useOuter=TRUE), ## R default
s={}) ## S-Plus not available
## no strip labels (probably silly, but possible)
if.R(r=ladder(life.exp ~ ppl.per.phys, data=tv, strip.number=0, useOuter=FALSE),
s=ladder(life.exp ~ ppl.per.phys, data=tv, strip.number=0,
axis3.line=0))
# }
Run the code above in your browser using DataCamp Workspace