draw.key; getting grobWidth to respect fontfamily="mono"
Many thanks Paul, that is a nifty way to do it. Regards Ben
Paul Murrell wrote:
Hi On 07/09/12 09:35, Benjamin Tyner wrote:
Update: seems one way to skin this cat is to add gp = gpar(fontfamily="mono") to the viewport() call itself. If anyone has any suggestions for a robust way to extract this piece information from the key grob itself (it's nested several levels deep), I'm all ears.
I'm going to try to blame 'lattice' for this problem (because it
appears to be generating "strwidth" units for the text entries in the
key rather than "grobwidth" units [so the 'gp' settings on the text
grobs are being ignored when widths are calculated]). (Though
'lattice' is probably doing that to avoid using packGrob() and being
further slowed down by 'grid'!)
However, since you are already deep enough into 'grid' to be using
viewports and grobWidth() yourself, I suspect that you could get what
you want by avoiding draw.key() altogether. You could generate a text
grob yourself (based on your 'GOFlist'), directly query it for its
width, build a viewport based on that width (similar to the viewport
that you are already creating), push the viewport and draw the grob.
Something like this ...
GOFgrob <- function(x) {
textGrob(c(x$title, x$text$label),
x=.5, y=unit(.5, "npc") + unit(1:-1, "lines"),
gp=gpar(fontfamily=c("sans", "mono", "mono")))
}
plot <- xyplot(actual + forecast ~ yyyymm | cond,
data = Data,
layout = c(1,2),
type = "l",
panel = function(x,y,GOFlist,...){
panel.xyplot(x,y,...)
pn <- panel.number()
key <- GOFgrob(GOFlist[[pn]])
vp <- viewport(x = 1,
y = 1,
width = grobWidth(key) +
unit(2, "lines"),
height = grobHeight(key) +
unit(1, "lines"),
just = c("right","top")
)
pushViewport(vp)
grid.draw(key)
grid.rect()
popViewport()
},
GOFlist = GOFlist
)
Hope that helps.
Paul
Thanks Ben
______________________________________________ R-help at r-project.org 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.