Hi,
You can set up a Grid layout with one viewport at the bottom and
another on the left and use grid.text to add your labels. An example
is given below using grid.pack.
The gridExtra package provides a convenient wrapper for these regular
arrangements of plots,
##library(gridExtra) #http://gridextra.googlecode.com/
source(http://gridextra.googlecode.com/svn/trunk/R/arrange.r;)
arrange(a, b, c, d)
I will add a viewport on the left side for a global y axis, but in the
meantime you can use packGrob,
## return a grob with all plots
p - arrange(a, b, c, d, plot=FALSE)
g - frameGrob()
g - packGrob(g, p)
g - packGrob(g, textGrob(my y label, rot=90), side = left,
border = unit(rep(4, 4), mm))
g - packGrob(g, textGrob(my x label), side = bottom,
border = unit(rep(4, 4), mm))
grid.draw(g)
HTH,
baptiste
2009/12/30 Lorenzo Isella lorenzo.ise...@gmail.com:
Dear All,
I am trying to stitch together multiple plots using ggplot2
Consider for instance the following snippet based on an old thread
(http://tinyurl.com/ylehm2t)
library(ggplot2)
vplayout - function(x, y) viewport(layout.pos.row=x, layout.pos.col=y)
draw4 - function(pdfname, a,b,c,d,w,h) {
pdf(pdfname,width=w, height=h)
grid.newpage()
pushViewport(viewport(layout=grid.layout(2,2) ) )
print(a, vp=vplayout(1,1))
print(b, vp=vplayout(1,2))
print(c, vp=vplayout(2,1))
print(d, vp=vplayout(2,2))
dev.off()
}
data(diamonds)
set.seed(1234)
randind - sample(nrow(diamonds),1000,replace=FALSE)
dsmall - diamonds[randind,]
a - qplot(carat, data=dsmall, geom=histogram,binwidth=1)
b - qplot(carat, data=dsmall, geom=histogram,binwidth=.1)
c - qplot(carat, data=dsmall, geom=histogram,binwidth=.01)
d - qplot(carat, data=dsmall, geom=histogram,binwidth=2)
width - 7
height - 7
draw4( test-4.pdf, a,b,c,d, width, height)
Is there any way to give an overall label along the y and x axis?
E.g.something like a xlab to write some text which applies to the x axis
of all the plots and which should go at the middle bottom of the
compound plot (and something perfectly along these lines for the y axis).
Many thanks
Lorenzo
__
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.
