Try this:
symboles <- c(3,4,5,6)
dn <- rbind(matrix(rnorm(20),5))
layout(matrix(c(1,1,1,2,2,3),3))
for(i in 1:3){
matplot(dn,type="b",xlab="",pch=symboles)
legend(grconvertX(0.5,'nfc'), grconvertY(0,'nfc'),
xjust=0.5, yjust=0,
pch = unique(symboles),
legend = c("a","b","c","d"),
horiz = TRUE, xpd = NA)
}
Does that do what you want? Or at least get you started in the correct
direction?
--
Gregory (Greg) L. Snow Ph.D.
Statistical Data Center
Intermountain Healthcare
[EMAIL PROTECTED]
801.408.8111
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> project.org] On Behalf Of Christophe Genolini
> Sent: Monday, December 08, 2008 11:28 AM
> To: Greg Snow
> Cc: r-help@r-project.org
> Subject: Re: [R] legend at fixed distance form the bottom
>
> Sorry, I will be more precise. Here is an example (simplified) of graph
> I want :
>
> ---- 8< ----
>
> symboles <- c(3,4,5,6)
> dn <- rbind(matrix(rnorm(20),5))
> layout(matrix(c(1,1,1,2,2,3),3))
>
> for(i in 1:3)
> matplot(dn,type="b",xlab="+: a x: b ???: c ???: d",pch=symboles)
> ---- 8< ----
>
> But instead of ???, I want the "triangle" and the "losange".
> So I try to use legend in order to get the losange and triangle :
>
> --- 8< ----
>
> for(i in 1:3){
> matplot(dn,type="b",xlab="",pch=symboles)
> legend("top", pch = unique(listSymboles),
> legend = c("a","b","c","d"),
> inset = c(0,1.1), horiz = TRUE, xpd = NA)
> }
>
> --- 8< ----
>
> On the first plot, the legend is down, on the second, the legend is on
> a
> correct position, on the third one, the legend in *on* the graduation.
> So my problem is to plot either a legend at a fixed distance from the
> graph or to put some symbol ("triangle", "losange" and all the other
> since I might have more than 4 curves) in the xlab.
>
> Any solution ?
>
> Thanks
>
> Christophe
>
>
>
>
>
> > I suggested the use of grconvertY if you want to place something
> exactly n inches from the bottom, then grconvertY will give the user
> (or other) coordinates that match, or if you want to place something
> exactly 10% of the total device height from the bottom, etc.
> >
> > What to do in replotting a graph afte a resize is usually tricky and
> requires information that the program does not have and therefore has
> to guess at, that is why it is safest to not depend on the computer
> doing the correct thing in a resize and just tell the users to
> resize/set size before calling your function.
> >
> > If you give a bit more detail on what you are trying to accomplish
> and what you mean by fixed distance (number of inches, proportion of
> device height, margin row, etc.) we may be better able to help.
> >
> > --
> > Gregory (Greg) L. Snow Ph.D.
> > Statistical Data Center
> > Intermountain Healthcare
> > [EMAIL PROTECTED]
> > 801.408.8111
> >
> >
> >
> >> -----Original Message-----
> >> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> >> project.org] On Behalf Of Christophe Genolini
> >> Sent: Saturday, December 06, 2008 7:08 AM
> >> To: Greg Snow
> >> Cc: r-help@r-project.org
> >> Subject: Re: [R] legend at fixed distance form the bottom
> >>
> >> Thanks for your answer.
> >>
> >> Unfortunatly, I can not create the graphice with the final size
> since I
> >> am writing a package in wich the user will have to chose between
> >> several
> >> graphics, and then he will have to export one. And they might be one
> >> graph, or 2x2, or 3x3...
> >>
> >> I check the grconvertY but I did not understand what you suggest. To
> >> me,
> >> the use of legend can not work since every length in the legend box
> >> (xlength, ylength, distance to axes) will change when resizing the
> >> graph. I was more expecting something like introduce the symbols
> used
> >> in
> >> the graph *in* the xlab. Is it possible ?
> >>
> >> Christophe
> >>
> >>
> >>> It is best to create the graphics device at the final size desired,
> >>>
> >> then do the plotting and add the legend. For getting a fixed
> distance,
> >> look at the function grconvertY for one possibility.
> >>
> >>> --
> >>> Gregory (Greg) L. Snow Ph.D.
> >>> Statistical Data Center
> >>> Intermountain Healthcare
> >>> [EMAIL PROTECTED]
> >>> 801.408.8111
> >>>
> >>>
> >>>
> >>>
> >>>> -----Original Message-----
> >>>> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> >>>> project.org] On Behalf Of Christophe Genolini
> >>>> Sent: Friday, December 05, 2008 6:40 AM
> >>>> To: r-help@r-project.org
> >>>> Subject: [R] legend at fixed distance form the bottom
> >>>>
> >>>> Hi the list
> >>>>
> >>>> I would like to add a legend under a graph but at a fixed distance
> >>>>
> >> from
> >>
> >>>> the graphe. Is it possible ?
> >>>> More precisely, here is my code :
> >>>>
> >>>> --- 8< ----
> >>>> symboles <- c(3,4,5,6)
> >>>> dn <- rbind(matrix(rnorm(20),,5),matrix(rnorm(20,2),,5))
> >>>> listSymboles <- rep(symboles,each=2)
> >>>> matplot(t(dn),pch=listSymboles,type="b")
> >>>> legend("bottom", pch = unique(listSymboles), legend = c("ane",
> >>>> "cheval",
> >>>> "poney", "mule"), inset = c(0,-0.175), horiz = TRUE, xpd = NA)
> >>>> --- 8< ----
> >>>>
> >>>> But when I change the size of the graph, the legend is misplaced.
> >>>>
> >>>> Instead, I try to put some text in xlab, but I do not know how to
> >>>>
> >> get
> >>
> >>>> the +, x , V and other symbol.
> >>>> Does anyone got a solution ?
> >>>>
> >>>> Thanks a lot.
> >>>>
> >>>> Christophe
> >>>>
> >>>> ______________________________________________
> >>>> R-help@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.
> >>>>
> >>>>
> >>>
> >> ______________________________________________
> >> R-help@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.
> >>
> >
> >
>
> ______________________________________________
> R-help@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.
______________________________________________
R-help@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.
