[R] [FORGED] Re: drc, ggplot2, and gridExtra

Paul Murrell
Wed, 23 May 2018 03:36:58 -0000

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 at 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 at 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
paul at stat.auckland.ac.nz