# Re: [R] Plotting three time series on the same graph

From: <tolga.i.uzuner_at_jpmorgan.com>
Date: Mon, 30 Jun 2008 12:59:16 +0100

Thanks Gabor, this seems to work:

## plot with left and right axes
## modified from http://www.mayin.org/ajayshah/KB/R/html/g6.html set.seed(1)
z <- zoo(cbind(A = cumsum(rnorm(100)), B = cumsum(rnorm(100, mean = 0.2))))
opar <- par(mai = c(.8, .8, .2, .8))
plot(z[,1], type = "l",

xlab = "X axis label", ylab = "")

usr <- par("usr")
opar <- par(usr = c(usr[1:2], c(1, 15))) par(new = TRUE)
plot(z[,1]+rnorm(100),col="green",ylab="",yaxt="n",xlab="") axis(2, pos = usr[1] - diff(usr[1:2])/30, col = "green")

par(new = TRUE)
plot(z[,2], type = "l", ann = FALSE, yaxt = "n", col = "blue")

# axis(4)
Axis(side = 4)
par(opar)

"Gabor Grothendieck" <ggrothendieck_at_gmail.com> 30/06/2008 12:07

To
tolga.i.uzuner_at_jpmorgan.com
cc
r-help_at_r-project.org
Subject
Re: [R] Plotting three time series on the same graph

In the zoo package there is an example of a graph with an axis on the left and on the right in the examples section of ?plot.zoo. Run that with but use ylab = "" on the plot call to make room for the third axis.

To add a third axis supposing 1 - 15 is the range of our third time series:

usr <- par("usr")
opar <- par(usr = c(usr[1:2], c(1, 15))) axis(2, pos = usr[1] - diff(usr[1:2])/12, col = "green") par(opar)

On Mon, Jun 30, 2008 at 5:11 AM, <tolga.i.uzuner_at_jpmorgan.com> wrote:
> Dear R Users,
>
> I would like to plot three time series on the same graph, two axis on
the
> left and one axis on the right.
>
> The time series that I am graphing on the left do not share a similar
> scale: one has a range of 1:100 and the other a range of 25000:70000.
How
> can I display the tick marks for both on the left hand side without
> superimposing them, i.e. one set of tick marks in black right up on the
> edge of the plot and another set of tick marks in red placed further to
> the left so that the tick marks and axis identifiers do not sit on top
of
> each other ?
>
> Tolga
>
> Generally, this communication is for informational purposes only
> and it is not intended as an offer or solicitation for the purchase
> or sale of any financial instrument or as an official confirmation
> of any transaction. In the event you are receiving the offering
> materials attached below related to your interest in hedge funds or
> private equity, this communication may be intended as an offer or
> solicitation for the purchase or sale of such fund(s). All market
> prices, data and other information are not warranted as to
> completeness or accuracy and are subject to change without notice.
> those of JPMorgan Chase & Co., its subsidiaries and affiliates.
>
> This transmission may contain information that is privileged,
> confidential, legally privileged, and/or exempt from disclosure
> under applicable law. If you are not the intended recipient, you
> are hereby notified that any disclosure, copying, distribution, or
> use of the information contained herein (including any reliance
> thereon) is STRICTLY PROHIBITED. Although this transmission and any
> attachments are believed to be free of any virus or other defect
> that might affect any computer system into which it is received and
> opened, it is the responsibility of the recipient to ensure that it
> is virus free and no responsibility is accepted by JPMorgan Chase &
> Co., its subsidiaries and affiliates, as applicable, for any loss
> or damage arising in any way from its use. If you received this
> transmission in error, please immediately contact the sender and
> destroy the material in its entirety, whether in electronic or hard
> copy format. Thank you.
> Please refer to http://www.jpmorgan.com/pages/disclosures for
> disclosures relating to UK legal entities.
> [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help_at_r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>

Generally, this communication is for informational purposes only and it is not intended as an offer or solicitation for the purchase or sale of any financial instrument or as an official confirmation of any transaction. In the event you are receiving the offering materials attached below related to your interest in hedge funds or private equity, this communication may be intended as an offer or solicitation for the purchase or sale of such fund(s). All market prices, data and other information are not warranted as to completeness or accuracy and are subject to change without notice. Any comments or statements made herein do not necessarily reflect those of JPMorgan Chase & Co., its subsidiaries and affiliates.

This transmission may contain information that is privileged, confidential, legally privileged, and/or exempt from disclosure under applicable law. If you are not the intended recipient, you are hereby notified that any disclosure, copying, distribution, or use of the information contained herein (including any reliance thereon) is STRICTLY PROHIBITED. Although this transmission and any attachments are believed to be free of any virus or other defect that might affect any computer system into which it is received and opened, it is the responsibility of the recipient to ensure that it is virus free and no responsibility is accepted by JPMorgan Chase & Co., its subsidiaries and affiliates, as applicable, for any loss or damage arising in any way from its use. If you received this transmission in error, please immediately contact the sender and destroy the material in its entirety, whether in electronic or hard copy format. Thank you.
Please refer to http://www.jpmorgan.com/pages/disclosures for disclosures relating to UK legal entities.

[[alternative HTML version deleted]]

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 Mon 30 Jun 2008 - 12:10:27 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 Mon 30 Jun 2008 - 12:30:55 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.