thr3ads.net - R help - [R] Multiple plot in a page [Aug 2016]

If this information is useful, please help other people find it:
Share via:

roslinazairimah zakaria

2016-Aug-03 05:44 UTC

[R] Multiple plot in a page

Dear r-users,

I would like to plot 4 graphs arranged as 2 by 2 and follows are my codes.
However, it only shows one graph.

par(mfrow=c(1,2))

par(mar=c(4,4,2,1.2),oma=c(0,0,0,0),xaxs="i", yaxs="i")  ##
To control
white space around and between the plots
hist(stn_all[,1],prob=TRUE, main ="Balok
",col="yellowgreen", cex.axis=1.2,
xlab="Rain (mm)", ylab="Relative frequency", ylim=
c(0,.004),
xlim=c(0,1200))
lines(x, dgam1,col="red",lwd=3)
legend("topright", legend =
c("observed","fitted"),
       col = c("yellowgreen", "red"), pch=c(15,NA), lty =
c(0, 1),
       lwd=c(0,3),bty="n", pt.cex=2)
text(100,.012 , expression(paste(beta==64.64)))
box()

par(mar=c(4,4,2,1.2),oma=c(0,0,0,0),xaxs="i", yaxs="i")  ##
To control
white space around and between the plots
hist(stn_all[,2],prob=TRUE, main ="Gambang
",col="yellowgreen",
cex.axis=1.2,
xlab="Rain (mm)", ylab="Relative frequency", ylim=
c(0,.004),
xlim=c(0,1200))
lines(x, dgam2,col="red",lwd=3)
legend("topright", legend =
c("observed","fitted"),
       col = c("yellowgreen", "red"), pch=c(15,NA), lty =
c(0, 1),
       lwd=c(0,3),bty="n", pt.cex=2)
text(100,.012 , expression(paste(beta==64.64)))
box()


Thank you for your help.

-- 
*Dr. Roslinazairimah Binti Zakaria*
*Tel: +609-5492370; Fax. No.+609-5492766*

*Email: roslinazairimah at ump.edu.my <roslinazairimah at ump.edu.my>;
roslinaump at gmail.com <roslinaump at gmail.com>*
Deputy Dean (Academic & Student Affairs)
Faculty of Industrial Sciences & Technology
University Malaysia Pahang
Lebuhraya Tun Razak, 26300 Gambang, Pahang, Malaysia

	[[alternative HTML version deleted]]

Jim Lemon

2016-Aug-03 08:55 UTC

head link

[R] Multiple plot in a page

Hi Roslina,
You only specify space for two plots in:

par(mfrow=c(1,2))

However, you only try to plot two plots, so I will assume that you
only want two. You haven't defined "x" in the above code, which
will
cause an error. The code below gives me two plots as I would expect (I
made up the data that you didn't supply).

par(mfrow=c(1,2))
stn_all<-matrix(400*rnorm(20)+4,ncol=2)
par(mar=c(4,4,2,1.2),oma=c(0,0,0,0),xaxs="i", yaxs="i")
hist(stn_all[,1],prob=TRUE, main ="Balok
",col="yellowgreen", cex.axis=1.2,
xlab="Rain (mm)", ylab="Relative frequency", ylim=
c(0,.004),
xlim=c(0,1200))
x<-c(400,600,800,1000)
dgam1<-(rnorm(4)+4)/2000
lines(x, dgam1,col="red",lwd=3)
legend("topright", legend =
c("observed","fitted"),
       col = c("yellowgreen", "red"), pch=c(15,NA), lty =
c(0, 1),
       lwd=c(0,3),bty="n", pt.cex=2)
text(100,.012 , expression(paste(beta==64.64)))
box()

par(mar=c(4,4,2,1.2),oma=c(0,0,0,0),xaxs="i", yaxs="i")
hist(stn_all[,2],prob=TRUE, main ="Gambang
",col="yellowgreen",
cex.axis=1.2,
xlab="Rain (mm)", ylab="Relative frequency", ylim=
c(0,.004),
xlim=c(0,1200))
dgam2<-(rnorm(4)+4)/2000
lines(x, dgam2,col="red",lwd=3)
legend("topright", legend =
c("observed","fitted"),
       col = c("yellowgreen", "red"), pch=c(15,NA), lty =
c(0, 1),
       lwd=c(0,3),bty="n", pt.cex=2)
text(100,.012 , expression(paste(beta==64.64)))
box()

Jim


On Wed, Aug 3, 2016 at 3:44 PM, roslinazairimah zakaria
<roslinaump at gmail.com> wrote:> Dear r-users,
>
> I would like to plot 4 graphs arranged as 2 by 2 and follows are my codes.
> However, it only shows one graph.
>
> par(mfrow=c(1,2))
>
> par(mar=c(4,4,2,1.2),oma=c(0,0,0,0),xaxs="i", yaxs="i")
## To control
> white space around and between the plots
> hist(stn_all[,1],prob=TRUE, main ="Balok
",col="yellowgreen", cex.axis=1.2,
> xlab="Rain (mm)", ylab="Relative frequency", ylim=
c(0,.004),
> xlim=c(0,1200))
> lines(x, dgam1,col="red",lwd=3)
> legend("topright", legend =
c("observed","fitted"),
>        col = c("yellowgreen", "red"), pch=c(15,NA), lty
= c(0, 1),
>        lwd=c(0,3),bty="n", pt.cex=2)
> text(100,.012 , expression(paste(beta==64.64)))
> box()
>
> par(mar=c(4,4,2,1.2),oma=c(0,0,0,0),xaxs="i", yaxs="i")
## To control
> white space around and between the plots
> hist(stn_all[,2],prob=TRUE, main ="Gambang
",col="yellowgreen",
> cex.axis=1.2,
> xlab="Rain (mm)", ylab="Relative frequency", ylim=
c(0,.004),
> xlim=c(0,1200))
> lines(x, dgam2,col="red",lwd=3)
> legend("topright", legend =
c("observed","fitted"),
>        col = c("yellowgreen", "red"), pch=c(15,NA), lty
= c(0, 1),
>        lwd=c(0,3),bty="n", pt.cex=2)
> text(100,.012 , expression(paste(beta==64.64)))
> box()
>
>
> Thank you for your help.
>
> --
> *Dr. Roslinazairimah Binti Zakaria*
> *Tel: +609-5492370; Fax. No.+609-5492766*
>
> *Email: roslinazairimah at ump.edu.my <roslinazairimah at
ump.edu.my>;
> roslinaump at gmail.com <roslinaump at gmail.com>*
> Deputy Dean (Academic & Student Affairs)
> Faculty of Industrial Sciences & Technology
> University Malaysia Pahang
> Lebuhraya Tun Razak, 26300 Gambang, Pahang, Malaysia
>
>         [[alternative HTML version deleted]]
>
> ______________________________________________
> 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.

Michael Dewey

2016-Aug-03 09:33 UTC

head link

[R] Multiple plot in a page

Dear Rosalina

I do not think par(mfrow(c(1, 2)) does what you think it does although 
mfrow(c(2, 2)) might.

You could consider using layout() instead

On 03/08/2016 06:44, roslinazairimah zakaria wrote:> Dear r-users,
>
> I would like to plot 4 graphs arranged as 2 by 2 and follows are my codes.
> However, it only shows one graph.
>
> par(mfrow=c(1,2))
>
> par(mar=c(4,4,2,1.2),oma=c(0,0,0,0),xaxs="i", yaxs="i")
## To control
> white space around and between the plots
> hist(stn_all[,1],prob=TRUE, main ="Balok
",col="yellowgreen", cex.axis=1.2,
> xlab="Rain (mm)", ylab="Relative frequency", ylim=
c(0,.004),
> xlim=c(0,1200))
> lines(x, dgam1,col="red",lwd=3)
> legend("topright", legend =
c("observed","fitted"),
>        col = c("yellowgreen", "red"), pch=c(15,NA), lty
= c(0, 1),
>        lwd=c(0,3),bty="n", pt.cex=2)
> text(100,.012 , expression(paste(beta==64.64)))
> box()
>
> par(mar=c(4,4,2,1.2),oma=c(0,0,0,0),xaxs="i", yaxs="i")
## To control
> white space around and between the plots
> hist(stn_all[,2],prob=TRUE, main ="Gambang
",col="yellowgreen",
> cex.axis=1.2,
> xlab="Rain (mm)", ylab="Relative frequency", ylim=
c(0,.004),
> xlim=c(0,1200))
> lines(x, dgam2,col="red",lwd=3)
> legend("topright", legend =
c("observed","fitted"),
>        col = c("yellowgreen", "red"), pch=c(15,NA), lty
= c(0, 1),
>        lwd=c(0,3),bty="n", pt.cex=2)
> text(100,.012 , expression(paste(beta==64.64)))
> box()
>
>
> Thank you for your help.
>
-- 
Michael
http://www.dewey.myzen.co.uk/home.html

roslinazairimah zakaria

2016-Aug-03 12:01 UTC

head link

[R] Multiple plot in a page

Hi Jim,

I tried your code, however it still gives me only one plot.  I don't
understand what is going on.  Any clue?

On Wed, Aug 3, 2016 at 4:55 PM, Jim Lemon <drjimlemon at gmail.com> wrote:
> Hi Roslina,
> You only specify space for two plots in:
>
> par(mfrow=c(1,2))
>
> However, you only try to plot two plots, so I will assume that you
> only want two. You haven't defined "x" in the above code,
which will
> cause an error. The code below gives me two plots as I would expect (I
> made up the data that you didn't supply).
>
> par(mfrow=c(1,2))
> stn_all<-matrix(400*rnorm(20)+4,ncol=2)
> par(mar=c(4,4,2,1.2),oma=c(0,0,0,0),xaxs="i", yaxs="i")
> hist(stn_all[,1],prob=TRUE, main ="Balok
",col="yellowgreen", cex.axis=1.2,
> xlab="Rain (mm)", ylab="Relative frequency", ylim=
c(0,.004),
> xlim=c(0,1200))
> x<-c(400,600,800,1000)
> dgam1<-(rnorm(4)+4)/2000
> lines(x, dgam1,col="red",lwd=3)
> legend("topright", legend =
c("observed","fitted"),
>        col = c("yellowgreen", "red"), pch=c(15,NA), lty
= c(0, 1),
>        lwd=c(0,3),bty="n", pt.cex=2)
> text(100,.012 , expression(paste(beta==64.64)))
> box()
>
> par(mar=c(4,4,2,1.2),oma=c(0,0,0,0),xaxs="i", yaxs="i")
> hist(stn_all[,2],prob=TRUE, main ="Gambang
",col="yellowgreen",
> cex.axis=1.2,
> xlab="Rain (mm)", ylab="Relative frequency", ylim=
c(0,.004),
> xlim=c(0,1200))
> dgam2<-(rnorm(4)+4)/2000
> lines(x, dgam2,col="red",lwd=3)
> legend("topright", legend =
c("observed","fitted"),
>        col = c("yellowgreen", "red"), pch=c(15,NA), lty
= c(0, 1),
>        lwd=c(0,3),bty="n", pt.cex=2)
> text(100,.012 , expression(paste(beta==64.64)))
> box()
>
> Jim
>
>
> On Wed, Aug 3, 2016 at 3:44 PM, roslinazairimah zakaria
> <roslinaump at gmail.com> wrote:
> > Dear r-users,
> >
> > I would like to plot 4 graphs arranged as 2 by 2 and follows are my
> codes.
> > However, it only shows one graph.
> >
> > par(mfrow=c(1,2))
> >
> > par(mar=c(4,4,2,1.2),oma=c(0,0,0,0),xaxs="i",
yaxs="i")  ## To control
> > white space around and between the plots
> > hist(stn_all[,1],prob=TRUE, main ="Balok
",col="yellowgreen",
> cex.axis=1.2,
> > xlab="Rain (mm)", ylab="Relative frequency", ylim=
c(0,.004),
> > xlim=c(0,1200))
> > lines(x, dgam1,col="red",lwd=3)
> > legend("topright", legend =
c("observed","fitted"),
> >        col = c("yellowgreen", "red"),
pch=c(15,NA), lty = c(0, 1),
> >        lwd=c(0,3),bty="n", pt.cex=2)
> > text(100,.012 , expression(paste(beta==64.64)))
> > box()
> >
> > par(mar=c(4,4,2,1.2),oma=c(0,0,0,0),xaxs="i",
yaxs="i")  ## To control
> > white space around and between the plots
> > hist(stn_all[,2],prob=TRUE, main ="Gambang
",col="yellowgreen",
> > cex.axis=1.2,
> > xlab="Rain (mm)", ylab="Relative frequency", ylim=
c(0,.004),
> > xlim=c(0,1200))
> > lines(x, dgam2,col="red",lwd=3)
> > legend("topright", legend =
c("observed","fitted"),
> >        col = c("yellowgreen", "red"),
pch=c(15,NA), lty = c(0, 1),
> >        lwd=c(0,3),bty="n", pt.cex=2)
> > text(100,.012 , expression(paste(beta==64.64)))
> > box()
> >
> >
> > Thank you for your help.
> >
> > --
> > *Dr. Roslinazairimah Binti Zakaria*
> > *Tel: +609-5492370; Fax. No.+609-5492766*
> >
> > *Email: roslinazairimah at ump.edu.my <roslinazairimah at
ump.edu.my>;
> > roslinaump at gmail.com <roslinaump at gmail.com>*
> > Deputy Dean (Academic & Student Affairs)
> > Faculty of Industrial Sciences & Technology
> > University Malaysia Pahang
> > Lebuhraya Tun Razak, 26300 Gambang, Pahang, Malaysia
> >
> >         [[alternative HTML version deleted]]
> >
> > ______________________________________________
> > 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. Roslinazairimah Binti Zakaria*
*Tel: +609-5492370; Fax. No.+609-5492766*

*Email: roslinazairimah at ump.edu.my <roslinazairimah at ump.edu.my>;
roslinaump at gmail.com <roslinaump at gmail.com>*
Deputy Dean (Academic & Student Affairs)
Faculty of Industrial Sciences & Technology
University Malaysia Pahang
Lebuhraya Tun Razak, 26300 Gambang, Pahang, Malaysia

	[[alternative HTML version deleted]]

R help - Aug 2016 - Multiple plot in a page

[R] Multiple plot in a page

[R] Multiple plot in a page

[R] Multiple plot in a page

[R] Multiple plot in a page