[R] Multiple plots; single x(y) labels

[schuster]

Hello Xin,

If you need to recreate plots from different systems you need full control over 
the graphics output. This is not always easy with traditional graphics, better 
have a look at the plotting functions from lattice (based on grid graphics 
system in R) or maybe ggplot2. 

http://www.google.de/search?hl=en&safe=off&client=firefox-
a&hs=VpI&rls=com.ubuntu%3Aen-
US%3Aofficial&q=R+grid+graphics+&aq=f&aqi=&aql=&oq=&gs_rfai=

On Thursday 13 May 2010 07:24:56 pm Xin Ge wrote:
> Hi David (and Others),
> 
> I think I messed it up. Lets start afresh, I do not want to use lattice for
> this. I'm using multiple "plot" commands and then eventually would like to
> get a *combine* x-label and y-label for this plot.
> 
> Like for example, the following plot has a combine x-label ("Height") and
> one y-label ("Weight")
> 
> http://support.sas.com/documentation/cdl/en/grstateditug/61951/HTML/default
> /images/multi-panel-data.gif
> 
> Is it possible to get a graph similar to above one using base R only ?
> 
> # R code (this is just a sample data and not actual data I'm using)
> 
> par(mfcol=c(2,2))
> plot(1:3, 4:6, type = "s", main = "", ylab="", xlab="")
> plot(2:5, 5:8, type = "s", main = "", ylab="", xlab="")
> plot(3:6, 6:9, type = "s", main = "", ylab="", xlab="")
> plot(4:7, 6:9, type = "s", main = "", ylab="", xlab="")
> 
> Thanks in advance,
> Xin
> 
> On Thu, May 13, 2010 at 1:10 PM, David Winsemius 
<dwinsemius at comcast.net>wrote:
> > On May 13, 2010, at 12:59 PM, Xin Ge wrote:
> >
> >  Hi David,
> >
> >> Thanks for your reply. By single x and y-labels I meant something like
> >> this:
> >>
> >> http://zoonek.free.fr/blosxom//R/2006-08-10_lattice_xyplot_quakes.png
> >>
> >> which lattice gives by default. The code you sent doesn't seem to solve
> >> the problem, I'm sorry if I havent' explained it clearly before.
> >>
> >> Any comments?
> >
> > Yes. If you want lattice output, then don't use base graphics
> > functions!!!!
> >
> > --
> > David.
> >
> >> Thanks,
> >> Xin
> >>
> >> On Thu, May 13, 2010 at 12:51 PM, David Winsemius
> >> <dwinsemius at comcast.net> wrote:
> >>
> >> On May 13, 2010, at 12:35 PM, David Winsemius wrote:
> >>
> >>
> >> ?plot  # ylim
> >>
> >> and you need to have the data in a form (before plotting) where you can
> >> determine the shared max and min for the y limits
> >>
> >> On May 13, 2010, at 12:04 PM, Xin Ge wrote:
> >>
> >> Hi All,
> >>
> >> Can anyone please help me with getting a single x and y-axis label while
> >> plotting muliple plots.
> >>
> >> I'm still not sure what a single x-label might mean for such disparate
> >> series.
> >>
> >> Here is the code:
> >>
> >> par(mfcol=c(2,2))
> >> plot(x <- sort(rnorm(7)), type = "s", main = "", ylab="", xlab="")
> >> plot(x <- sort(rnorm(27)), type = "s", main = "", ylab="", xlab="")
> >> plot(x <- sort(rnorm(47)), type = "s", main = "", ylab="", xlab="")
> >> plot(x <- sort(rnorm(67)), type = "s", main = "", ylab="", xlab="")
> >>
> >>
> >> randlist <- list(); randlist[[1]] <- sort(rnorm(7))
> >> randlist[[2]] <- sort(rnorm(27))
> >> randlist[[3]] <- sort(rnorm(47))
> >> randlist[[4]] <- sort(rnorm(67))
> >> lapply(randlist, plot, ylim=c(min(rapply(randlist, min)),
> >> max(rapply(randlist,max))),
> >>                     type = "s", xaxt="n", main = "", ylab="", xlab="");
> >> par(opar)
> >>
> >> A minor refinement:
> >>
> >>
> >> opar <- par(mfcol=c(2,2))
> >> lapply(randlist, plot, ylim=c(Reduce("min", randlist), Reduce("max",
> >> randlist)),
> >>
> >>                     type = "s", xaxt="n", main = "", ylab="", xlab="")
> >> par(opar)
> >>
> >>
> >> also, how can remove x-tick lables using plot()?
> >>
> >> ?par  # xaxt="n"
> >>
> >>
> >> Thanks,
> >> Xin
> >>
> >>       [[alternative HTML version deleted]]
> >>
> >> ______________________________________________
> >> 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.
> >>
> >> David Winsemius, MD
> >> West Hartford, CT
> >>
> >> ______________________________________________
> >> 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.
> >>
> >> David Winsemius, MD
> >> West Hartford, CT
> >
> > David Winsemius, MD
> > West Hartford, CT
> 
> 	[[alternative HTML version deleted]]
> 
> ______________________________________________
> 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.
> 

-