Hi
You need to be careful - you are grid.echo()ing (and then
grid.grab()ing) on full-size pages and then redrawing in half-height
pages, which is why you lose the x-axis labels in the result from
grid.arrange().
This gives a better result (grid.echo() directly in the half-height
viewports) ...
## grid.newpage()
pushViewport(viewport(y=.5, height=.5, just="bottom"))
grid.echo(function() plot(x, y), newpage=FALSE)
upViewport()
pushViewport(viewport(y=0, height=.5, just="bottom"))
grid.echo(function() plot(a, b), newpage=FALSE)
upViewport()
I have been looking for an example that would demonstrate what an
echoGrob() function would be for and I think your grid.arrange() example
might be what I need - thanks for posting this!
Paul
On 19/05/18 04:56, Eivind K. Dovik wrote:
On Fri, 18 May 2018, Ed Siefker wrote:
I have dose response data I have analyzed with the 'drc' package.
Using plot() works great. I want to arrange my plots and source
data on a single page. I think 'gridExtra' is the usual package for
this.
I could use plot() and par(mfrow=...), but then I can't put the source
data table on the page.
gridExtra provides grid.table() which makes nice graphical tables. It
doesn't work with par(mfrow=...), but has the function grid.arrange()
instead.
Unfortunately, grid.arrange() doesn't accept plot(). It does work with
qplot() from 'ggplot2'. Unfortunately, qplot() doesn't know how to
deal with data of class drc.
I'm at a loss on how to proceed here. Any thoughts?
Hi,
If you grab the plots as grobs, you can arrange them using grid.arrange()
library(gridGraphics)
library(gridExtra)
grab <- function{
grid.echo()
grid.grab()
}
x <- rnorm(100, 1, 2)
y <- rnorm(100, 0, 0.5)
plot(x,y)
p <- grab()
a <- rnorm(20, 0, 1)
b <- rnorm(20, 1, 2)
plot(a, b)
q <- grab()
grid.arrange(p, q)
Best,
Eivind K. Dovik
Bergen, NO
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
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 -- To UNSUBSCRIBE and more, see
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.
--
Dr Paul Murrell
Department of Statistics
The University of Auckland
Private Bag 92019
Auckland
New Zealand
64 9 3737599 x85392
p...@stat.auckland.ac.nz
http://www.stat.auckland.ac.nz/~paul/
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
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.
