Dear
Sebastien,
You can add
an x and y argument for your
key command so you can change its place.
Samer
Hi
Samer,
Thank for your reply. Unfortunately, the oma argument only changes the
sizes of
the plot area on the page and the key remains on top of the X-axis
title... it
basically does a homothetic transformation of the plot. As suggested, I
might
end up setting the space argument to "top".
Thanks,
Samer Mouksassi wrote:
Hello
Sebastien,
par(oma=c(3,6,1,2),xpd=T)
# xpd to be able to plot outside
the plot region and oma to change the
#
spaces of the margins
xyplot(b~a|ID,
data=""
panel=function(x,y,subscripts){
panel.xyplot(x, y,
pch=16)
panel.xyplot(mydf$a[subscripts],mydf$c[subscripts],pch=3)
},
as.table=T,
subscripts=T,
key
=
list(space="bottom", x=0.5,y=-0.2,
transparent = T,
text=list(c("b", "c")),
lines
=
list(pch = c(16,3), type = c("p", "p"))),
)
You can have
it on the “top” side without any overlap.
Hope this
helps,
Thank you,
Samer
Dear S-users,
I have a hard time finding a solution to the following problem. I have
this
function which, among others things, creates and print a trellis plot
created
with xyplot. Different data.frame objects are sent to this function
along with
others variables. Everything would be fine if only the legend of my
plot was
not displayed on top of my X-axis title (see sample script below). Is
there a
way to increase the margin for the key, or should I specify the key
differently?
Thanks in advance for your advises.
myfcn <- function(mydf){
assign("mydf",mydf,frame=1)
myplot<-xyplot(b~a|ID,
data=""
panel=function(x,y,subscripts){
panel.xyplot(x, y, pch=16)
panel.xyplot(mydf$a[subscripts],mydf$c[subscripts],pch=3)
},
as.table=T,
subscripts=T,
key = list(space="bottom",
transparent = T,
text=list(c("b",
"c")),
lines = list(pch = c(16,3), type =
c("p", "p"))),
)
print(myplot)
}
a <- rep((1:10),times=2)
b <- rep((11:20),times=2)
c <- rep((20:11),times=2)
ID<- rep((1:4), each =5)
mydf<-data.frame(a,b,c,ID)
myfcn(mydf)