R help - Jun 2008 - How can I shade the background area of a zoo time series object between specific dates?

Dear list members,
 
How can I shade the background area of a zoo time series object between
specific dates?
 
eg.

    library(tseries)
    library(zoo)
    SP500<-get.hist.quote("^GSPC", start = "1990-01-01",
quote "Close")
    plot(SP500)
 
How can I produce the same plot but with a (say) red background between 
 
    2007-04-12 
 
and
 
    2008-05-14 
 
?
 
Many thanks in advance...
 
Costas


P Think before you print.

Disclaimer:
This e-mail is confidential. If you are not the intended recipient, you should
not copy it, re-transmit it, use it or disclose its contents, but should return
it to the sender immediately and delete the copy from your system.
EFG Eurobank Ergasias S.A. is not responsible for, nor endorses, any opinion,
recommendation, conclusion, solicitation, offer or agreement or any information
contained in this communication.
EFG Eurobank Ergasias S.A. cannot accept any responsibility for the accuracy or
completeness of this message as it has been transmitted over a public network.
If you suspect that the message may have been intercepted or amended, please
call the sender.


	[[alternative HTML version deleted]]

See ?rect

library(zoo)
d1 <- as.Date("2007-04-12")
d2 <- as.Date("2008-05-14")
plot(SP500, type = "n")
rect(d1, par("usr")[3], d2, par("usr")[4], col =
"red", border = 0)
lines(SP500)

Also, there is an example using the lattice/grid-based xyplot.zoo in ?xyplot.zoo

On Thu, Jun 19, 2008 at 10:48 AM, Vorlow Constantinos
<CVorlow at eurobank.gr> wrote:
> Dear list members,
>
> How can I shade the background area of a zoo time series object between
> specific dates?
>
> eg.
>
>    library(tseries)
>    library(zoo)
>    SP500<-get.hist.quote("^GSPC", start =
"1990-01-01", quote > "Close")
>    plot(SP500)
>
> How can I produce the same plot but with a (say) red background between
>
>    2007-04-12
>
> and
>
>    2008-05-14
>
> ?
>
> Many thanks in advance...
>
> Costas
>
>
> P Think before you print.
>
> Disclaimer:
> This e-mail is confidential. If you are not the intended recipient, you
should not copy it, re-transmit it, use it or disclose its contents, but should
return it to the sender immediately and delete the copy from your system.
> EFG Eurobank Ergasias S.A. is not responsible for, nor endorses, any
opinion, recommendation, conclusion, solicitation, offer or agreement or any
information contained in this communication.
> EFG Eurobank Ergasias S.A. cannot accept any responsibility for the
accuracy or completeness of this message as it has been transmitted over a
public network. If you suspect that the message may have been intercepted or
amended, please call the sender.
>
>
>        [[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.
>