Wladimir Eremeev wrote:
Dear r-help
I draw plots with xyplot() function.
Each plot contains also a line of regression. I want to write the trend value and its significance (obtained with lm()) below each panel. I use ltext() for this. But the text is cut, when it comes outside a panel. Moreover (obviously), it doesn't appear at all when its coordinates are outside a panel.
Could you, please, be so kind to give me a direction to walk in order to have a text written below a panel.
Lattice clips to the panel by default. I think there is a plan to add a lattice argument to allow you to turn this clipping off in future versions.
In the meantime, there is a workaround. The idea is to push a viewport bigger than the panel and set the clipping region using that larger viewport, then push another viewport which is the same as the original panel (but do not clip to that). The following example shows what to do (if you remove the push.viewport and pop.viewport bits the text is clipped to the panel):
data(quakes)
Depth <- equal.count(quakes$depth, number=8, overlap=.1)
xyplot(lat ~ long | Depth, data = quakes,
panel=function(x, y, ...) {
panel.xyplot(x, y) # Set the clipping region four times larger
xscale <- current.viewport()$xscale
yscale <- current.viewport()$yscale
push.viewport(viewport(width=2, height=2, clip=TRUE))
push.viewport(viewport(width=.5, height=.5,
xscale=xscale, yscale=yscale)) ltext(rep(165, 4), seq(-10, -40, -10),
c("one", "two", "three", "four")) # Pop the extra viewports (VERY IMPORTANT!)
pop.viewport(2)
})Hope that helps
Paul -- Dr Paul Murrell Department of Statistics The University of Auckland Private Bag 92019 Auckland New Zealand 64 9 3737599 x85392 [EMAIL PROTECTED] http://www.stat.auckland.ac.nz/~paul/
______________________________________________ [EMAIL PROTECTED] mailing list https://www.stat.math.ethz.ch/mailman/listinfo/r-help
