Dear all,
I found the last example of this link (
https://sites.ualberta.ca/~lkgray/uploads/7/3/6/2/7362679/6c_-_line_plots_with_error_bars.pdf)
very similar to the one I need to make for my paper, and I think I got what
I wanted by applying some of the suggestions of this mail list.
Here it is the code I devised (maybe there will be further improvements
from the list):
YEAR <- c(1996 , 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 )
T_MAR <- c(2.8, 6.5, 5.4,2.4, 4, 4.1, 3, 4.4, 4.5)
T_APR <- c(5.7, 7.8, 7.7, 4.6, 4.7, 6.2,5.7, 5.9, 7)
T_MAY <- c(7, 8.8, 10, 6, 5.5, 7.6, 8.5, 7.3, 10.2)
BUD <- c(87, 98, 93, 85, 89, 91, 87, 92, 92)
BUD_SE <- c(3.6, 2, 2.4, 4, 2.4, 2.4, 4, 2.4, 3)
g1 <- data.frame(YEAR, T_MAR, T_APR, T_MAY, BUD, BUD_SE)
par(mar=c(5,5,5,5))
plot(YEAR,T_MAR,pch=0,type="b",col="green",yaxt="n",ylim=c(-15,12),ylab="")
lines(T_MAR~YEAR, type="o", pch=19, col="green")
lines(T_APR~YEAR, type="o", pch=19, col="red")
lines(T_MAY~YEAR, type="o", pch=19, col="blue")
axis(side=2, at=c(0,6,12))
mtext("Temperature (°C)", side = 2, line=2.5, at=6)
legend(1999,14, bty="n",
lty = c(1,1,1),
lwd = c(2,2,2),
pch = c(19,19,19),
col = c("green","red","blue"), legend = c("March","April","May"))
par(new=TRUE)
plot(YEAR,BUD, pch=1,type="b",col="blue",yaxt="n",ylim=c(105,50), ylab="")
arrows(g1$YEAR,g1$BUD, g1$YEAR,g1$BUD + g1$BUD_SE, length=0.05, angle=90)
arrows(g1$YEAR,g1$BUD, g1$YEAR,g1$BUD-g1$BUD_SE, length=0.05, angle=90)
axis(side=4, at=c(100,90,80), labels=c("80","90","100"),las=1)
mtext("Bud Break (Julian Day)", side = 4, line=2.5, at=90, padj=0)
abline(h=78)
Thanks for the insight and help as to the functions I needed to take a look
at.
Andre
On Tue, Jun 20, 2017 at 12:38 AM, PIKAL Petr <petr.pi...@precheza.cz> wrote:
> Hi
>
> You are quite close. With slight modification of your code:
>
> par(mfrow = c(2, 1))
> par(cex = 0.6)
> par(mar = c(0, 0, 0, 0), oma = c(4, 4, 0.5, 0.5))
> par(tcl = -0.25)
> par(mgp = c(2, 0.6, 0))
>
> plot(BUD~YEAR, type="o", ann=F, axes=F, pch=19, ylim=c(60,100),data=g1)
> axis(4, las=2)
> mtext("Bud Break (Julian Day)", side=4, padj=4)
> arrows(g1$YEAR,g1$BUD, g1$YEAR,g1$BUD + g1$BUD_SE, length=0.05, angle=90)
> arrows(g1$YEAR,g1$BUD, g1$YEAR,g1$BUD-g1$BUD_SE, length=0.05, angle=90)
>
> plot(T_MAR~YEAR, type="l", pch=19, ann=F, axes=F, xlim=c(1996,2004),
> ylim=c(0,12), data=g1)
>
> title(ylab="Temperature (°C)",xlab="Year")
> axis(1, at=seq(1996, 2004, 2))
> axis(2, at=c(0,3,6,9,12), las=2)
>
> I am quite close to what you probably expect. You need modify axes and
> their annotation, which is left for your training.
>
> Cheers
> Petr
>
> >
>
> > -----Original Message-----
> > From: R-help [mailto:r-help-boun...@r-project.org] On Behalf Of André
> Luis
> > Neves
> > Sent: Tuesday, June 20, 2017 6:29 AM
> > To: Bert Gunter <bgunter.4...@gmail.com>
> > Cc: R mailing list <r-help@r-project.org>
> > Subject: Re: [R] Help with the plot function
> >
> > Hi, Bert:
> > Yes, I studied the functions you suggested, but I didn't get to adapt it
> to
> > my example whose reproducible code I sent in my first email.
> >
> > Here it is the code of the functions I studies:
> >
> > ## par
> > par(mfrow = c(2, 3))
> > par(cex = 0.6)
> > par(mar = c(3, 3, 0, 0), oma = c(1, 1, 1, 1))
> > for (i in 1:6) {
> > plot(1, 1, type = "n")
> > mtext(letters[i], side = 3, line = -1, adj = 0.1, cex = 0.6)}
> >
> >
> > par(mfrow = c(2, 3))
> > par(cex = 0.6)
> > par(mar = c(0, 0, 0, 0), oma = c(4, 4, 0.5, 0.5))
> > par(tcl = -0.25)
> > par(mgp = c(2, 0.6, 0))
> >
> > for (i in 1:6) {
> > plot(1, axes = FALSE, type = "n")
> > mtext(letters[i], side = 3, line=-1,adj=0.1,cex=0.6, col =
> "grey40")
> > if (i %in% c(4, 5, 6))
> > axis(1, col = "grey40", col.axis = "grey20", at = seq(0.6,
> > 1.2, 0.2))
> > if (i %in% c(1, 4))
> > axis(2, col = "grey40", col.axis = "grey20", at = seq(0.6,
> > 1.2, 0.2))
> > box(col = "grey60")}
> >
> > ## Layout
> >
> > m <- rbind(c(1, 1), c(2, 3))
> > m
> > layout(m)
> > layout.show(3)
> > layout(m)
> > par(mar = c(3, 3, 0, 0))
> > for (i in 1:3) plot(1, 1, type = "n")
> >
> > Thank you,
> >
> > Andre
> >
> >
> > On Mon, Jun 19, 2017 at 9:53 PM, Bert Gunter <bgunter.4...@gmail.com>
> > wrote:
> >
> > > 1. Did you study the functions (esp. ?layout) to which I referred you?
> > >
> > > 2. Show us your code! -- "to no avail" is meaningless!
> > >
> > > -- Bert
> > >
> > >
> > > Bert Gunter
> > >
> > > "The trouble with having an open mind is that people keep coming along
> > > and sticking things into it."
> > > -- Opus (aka Berkeley Breathed in his "Bloom County" comic strip )
> > >
> > >
> > > On Mon, Jun 19, 2017 at 7:01 PM, André Luis Neves <
> andrl...@ualberta.ca>
> > > wrote:
> > > > I'm trying to recreate a graph similar to the last one found on this
> > > link:
> > > > https://sites.ualberta.ca/~lkgray/uploads/7/3/6/2/
> > > 7362679/6c_-_line_plots_with_error_bars.pdf
> > > >
> > > > The difference is that I want budbreak on the top, and the
> temperatures
> > > at
> > > > the bottom.
> > > >
> > > > I tried to set par before each graph and include lines, with no
> avail.
> > > >
> > > > Thanks, Bert.
> > > >
> > > > Andre
> > > >
> > > > On Mon, Jun 19, 2017 at 7:41 PM, Bert Gunter <bgunter.4...@gmail.com
> >
> > > wrote:
> > > >>
> > > >> See
> > > >>
> > > >> ?layout
> > > >> ?split.screen
> > > >> ?par (the mfrow and mfcol values)
> > > >>
> > > >> depending exactly on what you want to do and how you want to do it.
> > > >> Essentially, these all allow you to make separate plots at different
> > > >> regions of the device.
> > > >>
> > > >>
> > > >> Cheers,
> > > >> Bert
> > > >>
> > > >>
> > > >>
> > > >>
> > > >> Bert Gunter
> > > >>
> > > >> "The trouble with having an open mind is that people keep coming
> along
> > > >> and sticking things into it."
> > > >> -- Opus (aka Berkeley Breathed in his "Bloom County" comic strip )
> > > >>
> > > >>
> > > >> On Mon, Jun 19, 2017 at 6:30 PM, André Luis Neves
> > <andrl...@ualberta.ca
> > > >
> > > >> wrote:
> > > >> > Dear friends,
> > > >> >
> > > >> > I have the following dataframe:
> > > >> >
> > > >> > YEAR <- c(1996 , 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 )
> > > >> > T_MAR <- c(2.8, 6.5, 5.4,2.4, 4, 4.1, 3, 4.4, 4.5)
> > > >> > T_APR <- c(5.7, 7.8, 7.7, 4.6, 4.7, 6.2,5.7, 5.9, 7)
> > > >> > T_MAY <- c(7, 8.8, 10, 6, 5.5, 7.6, 8.5, 7.3, 10.2)
> > > >> > BUD <- c(87, 98, 93, 85, 89, 91, 87, 92, 92)
> > > >> > BUD_SE <- c(3.6, 2, 2.4, 4, 2.4, 2.4, 4, 2.4, 3)
> > > >> > g1 <- data.frame(YEAR, T_MAR, T_APR, T_MAY, BUD, BUD_SE)
> > > >> >
> > > >> > ###PLOT
> > > >> > dev.new(width=6.5, height=5)
> > > >> > par (cex=1, family="sans", mar=c(5,5,5,5.5))
> > > >> > plot(T_MAR~YEAR, type="l", pch=19, ann=F, axes=F,
> xlim=c(1996,2004),
> > > >> > ylim=c(0,12), data=g1)
> > > >> >
> > > >> > title(ylab="Temperature (°C)",xlab="Year")
> > > >> > axis(1, at=seq(1996, 2004, 2))
> > > >> > axis(2, at=c(0,3,6,9,12), las=2)
> > > >> > par(new=T)
> > > >> > plot(BUD~YEAR, type="o", ann=F, axes=F, pch=19,
> > > ylim=c(60,100),data=g1)
> > > >> > axis(4, las=2)
> > > >> > mtext("Bud Break (Julian Day)", side=4, padj=4)
> > > >> > arrows(g1$YEAR,g1$BUD, g1$YEAR,g1$BUD + g1$BUD_SE, length=0.05,
> > > >> > angle=90)
> > > >> > arrows(g1$YEAR,g1$BUD, g1$YEAR,g1$BUD-g1$BUD_SE, length=0.05,
> > > angle=90)
> > > >> >
> > > >> >
> > > >> >
> > > >> > However, I'd like to draw a multi-panel graph with budbreak on
> the top
> > > >> > (as
> > > >> > it is), and with the temperatures for March, April, and May on the
> > > >> > bottom,
> > > >> > with their respective legends.
> > > >> >
> > > >> > I was wondering if you could help me out with this.
> > > >> >
> > > >> > Thanks a million for your help.
> > > >> >
> > > >> > --
> > > >> > Andre
> > > >> >
> > > >> > [[alternative HTML version deleted]]
> > > >> >
> > > >> > ______________________________________________
> > > >> > 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.
> > > >
> > > >
> > > >
> > > >
> > > > --
> > > > Andre
> > >
> >
> >
> >
> > --
> > Andre
> >
> > [[alternative HTML version deleted]]
> >
> > ______________________________________________
> > 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.
>
> ________________________________
> Tento e-mail a jakékoliv k němu připojené dokumenty jsou důvěrné a jsou
> určeny pouze jeho adresátům.
> Jestliže jste obdržel(a) tento e-mail omylem, informujte laskavě
> neprodleně jeho odesílatele. Obsah tohoto emailu i s přílohami a jeho kopie
> vymažte ze svého systému.
> Nejste-li zamýšleným adresátem tohoto emailu, nejste oprávněni tento email
> jakkoliv užívat, rozšiřovat, kopírovat či zveřejňovat.
> Odesílatel e-mailu neodpovídá za eventuální škodu způsobenou modifikacemi
> či zpožděním přenosu e-mailu.
>
> V případě, že je tento e-mail součástí obchodního jednání:
> - vyhrazuje si odesílatel právo ukončit kdykoliv jednání o uzavření
> smlouvy, a to z jakéhokoliv důvodu i bez uvedení důvodu.
> - a obsahuje-li nabídku, je adresát oprávněn nabídku bezodkladně přijmout;
> Odesílatel tohoto e-mailu (nabídky) vylučuje přijetí nabídky ze strany
> příjemce s dodatkem či odchylkou.
> - trvá odesílatel na tom, že příslušná smlouva je uzavřena teprve
> výslovným dosažením shody na všech jejích náležitostech.
> - odesílatel tohoto emailu informuje, že není oprávněn uzavírat za
> společnost žádné smlouvy s výjimkou případů, kdy k tomu byl písemně zmocněn
> nebo písemně pověřen a takové pověření nebo plná moc byly adresátovi tohoto
> emailu případně osobě, kterou adresát zastupuje, předloženy nebo jejich
> existence je adresátovi či osobě jím zastoupené známá.
>
> This e-mail and any documents attached to it may be confidential and are
> intended only for its intended recipients.
> If you received this e-mail by mistake, please immediately inform its
> sender. Delete the contents of this e-mail with all attachments and its
> copies from your system.
> If you are not the intended recipient of this e-mail, you are not
> authorized to use, disseminate, copy or disclose this e-mail in any manner.
> The sender of this e-mail shall not be liable for any possible damage
> caused by modifications of the e-mail or by delay with transfer of the
> email.
>
> In case that this e-mail forms part of business dealings:
> - the sender reserves the right to end negotiations about entering into a
> contract in any time, for any reason, and without stating any reasoning.
> - if the e-mail contains an offer, the recipient is entitled to
> immediately accept such offer; The sender of this e-mail (offer) excludes
> any acceptance of the offer on the part of the recipient containing any
> amendment or variation.
> - the sender insists on that the respective contract is concluded only
> upon an express mutual agreement on all its aspects.
> - the sender of this e-mail informs that he/she is not authorized to enter
> into any contracts on behalf of the company except for cases in which
> he/she is expressly authorized to do so in writing, and such authorization
> or power of attorney is submitted to the recipient or the person
> represented by the recipient, or the existence of such authorization is
> known to the recipient of the person represented by the recipient.
>
--
Andre
[[alternative HTML version deleted]]
______________________________________________
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.
