Hi
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
