Re: [R] multiple plots per page using hist and pdf

From: Ben Tupper <PemaquidRiver_at_tidewater.net>
Date: Wed, 27 Feb 2008 13:09:10 -0500

On Feb 27, 2008, at 11:45 AM, Gavin Simpson wrote:

> On Wed, 2008-02-27 at 11:31 -0500, Ben Tupper wrote:
>> Hello,
>>
>> I am puzzled by the behavior of hist() when generating multiple plots
>> per page on the pdf device. In the following example two pdf files
>> are generated. The first results in 4 plots on one pdf page as
>> expected. However, the second, which swaps one of the plot() calls
>> for hist(), results in a 4 page pdf with one plot per page.
>>
>> How might I get the histogram with 3 other scatter plots onto a
>> single pdf page?
>
> Look a bit more closely and you'll see what is wrong ;-)
>
> In the second example, you forgot the par(mfrow=c(2,2)) bit, so of
> course there was no split plotting region.
>

Hi,

Oh, for goodness sake! Why are troubles for newbies so prominently displayed under the nose? But it is oh so good to get that sorted out.

> Note that the par(mfrow=c(2,2)) bit in the first version (with all
> plot() calls) pertains to the pdf device you just opened, it doesn't
> persist as you closed that device ofter plotting with dev.off(). In
> the
> second example you need to change the par again to what you require.
>
> And as a result, your orig.par and par(orig.par) are irrelevant
> here as
> you didn't change any device that was open when you reset the
> parameters
> using par(orig.par).
>

OK, so as long as I am working within one device the parameters in par () are sticky. Got it!

Thanks!
Ben

> This is how your second example should have been called:
>
> pdf(file = "hist_and_plots.pdf")
> ## set up the new plotting device (pdf)
> par(mfrow = c(2,2))
> ## draw the plot
> hist(iris$Sepal.Length, main = "Plot 1")
> plot(iris$Petal.Length, iris$Petal.Width, main = "Plot 2")
> plot(iris$Sepal.Length, iris$Petal.Length, main = "Plot 3")
> plot(iris$Sepal.Width, iris$Petal.Width, main = "Plot 4")
> ## close the device to do the drawing
> dev.off()
>
> HTH
>
> G
>
>>
>> platform powerpc-apple-darwin8.10.1
>> version.string R version 2.6.1 (2007-11-26)
>>
>> Thanks!
>> Ben
>>
>> ###BEGIN
>> data(iris)
>>
>> orig.par = par(no.readonly = TRUE)
>>
>> pdf(file = "just_plots.pdf")
>>
>> par(mfrow=c(2,2))
>>
>> plot(iris$Sepal.Length, iris$Sepal.Width, main = "Plot 1")
>> plot(iris$Petal.Length, iris$Petal.Width, main = "Plot 2")
>> plot(iris$Sepal.Length, iris$Petal.Length, main = "Plot 3")
>> plot(iris$Sepal.Width, iris$Petal.Width, main = "Plot 4")
>>
>> dev.off()
>>
>> pdf(file = "hist_and_plots.pdf")
>>
>> hist(iris$Sepal.Length, main = "Plot 1")
>> plot(iris$Petal.Length, iris$Petal.Width, main = "Plot 2")
>> plot(iris$Sepal.Length, iris$Petal.Length, main = "Plot 3")
>> plot(iris$Sepal.Width, iris$Petal.Width, main = "Plot 4")
>>
>> dev.off()
>>
>>
>> par(orig.par)
>> ###END
>>
>> Ben Tupper
>> PemaquidRiver_at_tidewater.net
>>
>> I GoodSearch for Ashwood Waldorf School.
>>
>> Raise money for your favorite charity or school just by searching the
>> Internet with GoodSearch - www.goodsearch.com - powered by Yahoo!
>>
>> ______________________________________________
>> 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.
> --
> %~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%
> Dr. Gavin Simpson [t] +44 (0)20 7679 0522
> ECRC, UCL Geography, [f] +44 (0)20 7679 0565
> Pearson Building, [e] gavin.simpsonATNOSPAMucl.ac.uk
> Gower Street, London [w] http://www.ucl.ac.uk/~ucfagls/
> UK. WC1E 6BT. [w] http://www.freshwaters.org.uk
> %~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%
>

Ben Tupper
PemaquidRiver_at_tidewater.net

I GoodSearch for Ashwood Waldorf School.

Raise money for your favorite charity or school just by searching the Internet with GoodSearch - www.goodsearch.com - powered by Yahoo!



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. Received on Wed 27 Feb 2008 - 18:14:17 GMT

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Wed 27 Feb 2008 - 20:30:17 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.

list of date sections of archive