Recessions are typically shown by shading. The zoo package has xblocks for this purpose. If app1 is your zoo object then:
plot(app1) tt <- time(app1) xblocks(tt, tt >= "1990-07-01" & tt <= "1991-03-31", col = rgb(0.7, 0.7, 0.7, 0.5)) # transparent grey See ?xblocks for more info. On Thu, Nov 24, 2016 at 10:03 PM, Erin Hodgess <erinm.hodg...@gmail.com> wrote: > Hello! Happy Thanksgiving to those who are celebrating. > > I have a zoo series that I am plotting, and I would like to have some > vertical lines at certain points, to indicate US business cycles. Here is > an example: > > app1 <- get.hist.quote(instrument="appl", > start="1985-01-01",end="2016-08-31", quote="AdjClose", compression="m") > #Fine > plot(app1,main="Historical Stock Prices: Apple Corporation") > #Still Fine > #Now I want to use abline at July 1990 and March 1991 (as a start) for > business cycles. I tried v=67 and v="1990-07", no good. > > I have a feeling that it's really simple and I'm just not seeing it. > > Any help much appreciated. > > Thanks, > Erin > > > -- > Erin Hodgess > Associate Professor > Department of Mathematical and Statistics > University of Houston - Downtown > mailto: erinm.hodg...@gmail.com > > [[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. -- Statistics & Software Consulting GKX Group, GKX Associates Inc. tel: 1-877-GKX-GROUP email: ggrothendieck at gmail.com ______________________________________________ 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.
