tolga.i.uzuner at jpmorgan.com
2008-Nov-04 13:10 UTC
[R] fine grain tick marks for zoo plots
Dear R Users, I am trying to get plot.zoo to place monthy tickmarks/labels for a time series which spans daily data going back a bit over a year. Right now, I am getting only one tick mark on the x-axis for the beginning of 2008. How can I force plot.zoo to place more regular x-axis tick marks on a monthly basis ? Thanks in advance, 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. 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]]
example(plot.zoo) has an example. On Tue, Nov 4, 2008 at 8:10 AM, <tolga.i.uzuner at jpmorgan.com> wrote:> Dear R Users, > > I am trying to get plot.zoo to place monthy tickmarks/labels for a time > series which spans daily data going back a bit over a year. Right now, I > am getting only one tick mark on the x-axis for the beginning of 2008. How > can I force plot.zoo to place more regular x-axis tick marks on a monthly > basis ? > > Thanks in advance, > 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. > 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. >
And there are additional examples in vignette("zoo-faq") and example(xyplot.zoo) On Tue, Nov 4, 2008 at 8:26 AM, Gabor Grothendieck <ggrothendieck at gmail.com> wrote:> example(plot.zoo) has an example. > > On Tue, Nov 4, 2008 at 8:10 AM, <tolga.i.uzuner at jpmorgan.com> wrote: >> Dear R Users, >> >> I am trying to get plot.zoo to place monthy tickmarks/labels for a time >> series which spans daily data going back a bit over a year. Right now, I >> am getting only one tick mark on the x-axis for the beginning of 2008. How >> can I force plot.zoo to place more regular x-axis tick marks on a monthly >> basis ? >> >> Thanks in advance, >> 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. >> 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. >> >
tolga.i.uzuner at jpmorgan.com
2008-Nov-05 13:55 UTC
[R] fine grain tick marks for zoo plots
By way of follow-up, this will not work if the time series does not run over a year, as the replacement of January by the year fails on the second call to Axis. The following tests for this: plotmonths<-function(z,...){ plot(z,xaxt="n",...) tt <- time(z) m <- unique(as.Date(as.yearmon(tt))) jan <- format(m, "%m") == "01" mlab <- substr(months(m[!jan]), 1, 1) Axis(side = 1, at = m[!jan], labels = mlab, tcl = -0.3, cex.axis = 0.7) if(abs(as.numeric(head(index(z),1)-tail(index(z),1)))>367) Axis(side = 1, at = m[jan], labels = format(m[jan], "%y"), tcl = -0.7) Axis(side = 1, at = unique(as.Date(as.yearqtr(tt))), labels = FALSE) } Tolga I Uzuner/JPMCHASE 04/11/2008 14:16 To "Gabor Grothendieck" <ggrothendieck@gmail.com> cc r-help@r-project.org, tolga.i.uzuner@jpmorgan.com Subject Re: [R] fine grain tick marks for zoo plots Many thanks all. The following does the trick for me, taken out of the vignette: plotmonths<-function(z,...){ plot(z,xaxt="n",...) tt <- time(z) m <- unique(as.Date(as.yearmon(tt))) jan <- format(m, "%m") == "01" mlab <- substr(months(m[!jan]), 1, 1) Axis(side = 1, at = m[!jan], labels = mlab, tcl = -0.3, cex.axis = 0.7) Axis(side = 1, at = m[jan], labels = format(m[jan], "%y"), tcl = -0.7) Axis(side = 1, at = unique(as.Date(as.yearqtr(tt))), labels = FALSE) } Regards, Tolga "Gabor Grothendieck" <ggrothendieck@gmail.com> 04/11/2008 14:06 To tolga.i.uzuner@jpmorgan.com cc r-help@r-project.org Subject Re: [R] fine grain tick marks for zoo plots And there are additional examples in vignette("zoo-faq") and example(xyplot.zoo) On Tue, Nov 4, 2008 at 8:26 AM, Gabor Grothendieck <ggrothendieck@gmail.com> wrote:> example(plot.zoo) has an example. > > On Tue, Nov 4, 2008 at 8:10 AM, <tolga.i.uzuner@jpmorgan.com> wrote: >> Dear R Users, >> >> I am trying to get plot.zoo to place monthy tickmarks/labels for a time >> series which spans daily data going back a bit over a year. Right now,I>> am getting only one tick mark on the x-axis for the beginning of 2008.How>> can I force plot.zoo to place more regular x-axis tick marks on amonthly>> basis ? >> >> Thanks in advance, >> 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. >> 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@r-project.org mailing list >> https://stat.ethz.ch/mailman/listinfo/r-help >> PLEASE do read the posting guidehttp://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]]
Try if (any(jan)) ... On Wed, Nov 5, 2008 at 8:55 AM, <tolga.i.uzuner at jpmorgan.com> wrote:> > By way of follow-up, this will not work if the time series does not run over > a year, as the replacement of January by the year fails on the second call > to Axis. > > The following tests for this: > > plotmonths<-function(z,...){ > plot(z,xaxt="n",...) > tt <- time(z) > m <- unique(as.Date(as.yearmon(tt))) > jan <- format(m, "%m") == "01" > mlab <- substr(months(m[!jan]), 1, 1) > Axis(side = 1, at = m[!jan], labels = mlab, tcl = -0.3, cex.axis = 0.7) > if(abs(as.numeric(head(index(z),1)-tail(index(z),1)))>367) > Axis(side = 1, at = m[jan], labels = format(m[jan], "%y"), tcl > -0.7) > Axis(side = 1, at = unique(as.Date(as.yearqtr(tt))), labels = FALSE) > } > > > > > Tolga I Uzuner/JPMCHASE > > 04/11/2008 14:16 > > To > "Gabor Grothendieck" <ggrothendieck at gmail.com> > cc > r-help at r-project.org, tolga.i.uzuner at jpmorgan.com > Subject > Re: [R] fine grain tick marks for zoo plotsLink > > > > Many thanks all. The following does the trick for me, taken out of the > vignette: > > plotmonths<-function(z,...){ > plot(z,xaxt="n",...) > tt <- time(z) > m <- unique(as.Date(as.yearmon(tt))) > jan <- format(m, "%m") == "01" > mlab <- substr(months(m[!jan]), 1, 1) > Axis(side = 1, at = m[!jan], labels = mlab, tcl = -0.3, cex.axis = 0.7) > Axis(side = 1, at = m[jan], labels = format(m[jan], "%y"), tcl = -0.7) > Axis(side = 1, at = unique(as.Date(as.yearqtr(tt))), labels = FALSE) > } > > Regards, > Tolga > > > > > "Gabor Grothendieck" <ggrothendieck at gmail.com> > > 04/11/2008 14:06 > > To > tolga.i.uzuner at jpmorgan.com > cc > r-help at r-project.org > Subject > Re: [R] fine grain tick marks for zoo plots > > > > > And there are additional examples in > vignette("zoo-faq") > and > example(xyplot.zoo) > > On Tue, Nov 4, 2008 at 8:26 AM, Gabor Grothendieck > <ggrothendieck at gmail.com> wrote: >> example(plot.zoo) has an example. >> >> On Tue, Nov 4, 2008 at 8:10 AM, <tolga.i.uzuner at jpmorgan.com> wrote: >>> Dear R Users, >>> >>> I am trying to get plot.zoo to place monthy tickmarks/labels for a time >>> series which spans daily data going back a bit over a year. Right now, I >>> am getting only one tick mark on the x-axis for the beginning of 2008. >>> How >>> can I force plot.zoo to place more regular x-axis tick marks on a monthly >>> basis ? >>> >>> Thanks in advance, >>> 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. >>> 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. >>> >> > > > ________________________________ > > 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.