
i
i
“K23166” — 2015/1/28 — 9:35 — page 143 — #169
i
i
i
i
i
i
8.7. EXAMPLES 143
for (i in seq(along=z)) {
ell = ellipse(z[i], level=level, npoints=50,
scale=c(.2, .2), centre=c(x[i], y[i]))
panel.polygon(ell, col=zcol[i], border=zcol[i], ...)
}
if (label)
panel.text(x=x, y=y, lab=100*round(z, 2), cex=0.8,
col=ifelse(z < 0, "white", "black"))
}
> library(ellipse); library(lattice)
> levelplot(cormat, at=do.breaks(c(-1.01, 1.01), 20), xlab=NULL, ylab=NULL,
colorkey=list(space = "top", col=gray.colors),
scales=list(x=list(rot=90)), panel=panel.corrgram, labels=TRUE)
mcs
pcs
pss_fr
drugrisk
cesd
indtot
i1
sexrisk
mcs
pcs
pss_fr
drugrisk
cesd
indtot
i1
sexrisk
−1.0 −0.5 0.0 0.5 1.0
Figure ...