Try this where gr and theta are as in your post: xyplot(1~1|gr, main = as.expression(bquote(theta == .(theta))), strip = strip.custom(factor.levels = expression(theta, beta)) )
On 7/27/06, Valentin Todorov <[EMAIL PROTECTED]> wrote: > Unfortunately this does not work for lattice graphics. In such case I > do something like the following, but I still do not know how to plot > Greek letters in the panel titles: > > theta <- 2.1 > gr <- as.factor(c(1,2)) > levels(gr)[1]<-"Group 1" > levels(gr)[2]<-"Group 2" > library(lattice) > print(xyplot(1~1|gr, > xlab=eval(substitute(expression(paste(theta, " = ", tval)), > list(tval=theta))), > ylab=eval(substitute(expression(paste(theta, " = ", tval)), > list(tval=theta))), > main=eval(substitute(expression(paste("Results for ",theta, " = ", > tval)), list(tval=theta))), > sub=eval(substitute(expression(paste(theta, " = ", tval)), > list(tval=theta))) > )) > > > best, > valentin > > ______________________________________________ > R-help@stat.math.ethz.ch mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. > ______________________________________________ R-help@stat.math.ethz.ch mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.