1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
"plot.dice" <-
function(x,...){
if(!requireNamespace('lattice', quietly = TRUE)) stop('The lattice package is needed')
old.trellis.par <- lattice::trellis.par.get()
on.exit(lattice::trellis.par.set(old.trellis.par))
lattice::trellis.par.set(theme=lattice::col.whitebg())
df <- as.matrix(x)
x <- c(df)
y <- c(col(df)) - 1
g <- factor(c(row(df)))
xx <- ceiling(sqrt(dim(df)[2]))
yy <- ceiling( dim(df)[2]/xx )
invisible(print(lattice::xyplot( y~x|g, prepanel=prepanel.dice, panel=panel.dice,
scales=list(draw=FALSE), aspect=yy/xx, strip=FALSE,
as.table=TRUE,
xlab="", ylab="",...)))
}
|
