PROBLEM
# Allocating strip labels by the function strip.fun():
strip.test()
# Result: No strips: ok. No strings: NOT OK.
# The distance ``y.text=unit(6,"points")'' is ignored;
# the strings are not seen on the output.
TRIALS FOR WORKAROUNDS
strip.test( strip.lines=1 )
# Result: 2 strips: ok, but not whished. 2 strings: ok.
strip.test( y.text=0 )
# Result: No strips: ok. 2 strings: ok, but not pretty.
strip.test( strip.lines=0.01 )
# Result: 2 very narrow strips: ok, but not whished. 2 strings: ok.
CODE
library( lattice )
library( grid )
data( barley )
strip.test <- function( strip.lines=0, y.text=unit( 6, "points" ), ... ){
lset( list( clip = list( strip=F ) ) )
strip.fun <- function( which.given, which.panel, factor.levels, ... ){
grid.text( label=factor.levels[which.panel[which.given]]
, x= 0.5 - ( which.given - 1.5 ) * 0.7
, y=y.text
, just=c( c("right","left")[which.given], "bottom" )
)
}
print( dotplot( variety ~ yield | year * site, data=barley
, par.strip.text=list( lines=strip.lines )
, strip=strip.fun
, between=list( y=1.5 )
, ...
))
}
Wolfram
______________________________________________
[EMAIL PROTECTED] mailing list
https://www.stat.math.ethz.ch/mailman/listinfo/r-devel
